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Preface 


This publication is a guide for assembler-language programmers of the 
1130 Disk Monitor System, Version 2, or the 1800 Multiprogramming 
Executive Operating System, Version 3. It is supplemental to, and 
should be used in conjunction with, the 1130 and 1800 Assembler- 
Language manuals. 


The first chapter, “Introduction,” discusses the fundamentals of the 
Macro Assembler: what it is, how it operates, how much main storage it 
requires, how fast it performs, what types of macros there are, how to 
incorporate macros into your system; and, briefly, the Macro Update 
Program and error detection. ; 


The second chapter, “The Macro Instruction," discusses how to define and 
use a macro instruction. 


The third chapter, "Macro Assembler Features," discusses conditional 
assembly pseudo-operations, the ANOP, SET, and PURG pseudo-operations, 
automatic name generation, concatenation, optional remarks, indirect 
parameter substitution, the division operator, and the symbolic tag 
field. At the end of this chapter is a section on programming 
techniques. This section includes a sample program and programming 
tips. The sample program is for 1800 MPX but is also valid for the 1130 
(an 1130 DM2 sample program is in Appendix A). 


The fourth chapter, "Macro Assembler Language,” describes how the Macro 
Assembler can be used to create a language for a specific purpose. The 
example is for the 1800 MPX system but is a general illustration that is 
also valid for 1130 users. 


The fifth chapter, "The Macro Update Program,” describes how you can set 
up and maintain your macro libraries through various statements. These 

statements may refer to whole libraries, macros within the libraries, or 
statements within the macros. 


The sixth chapter, “Errors and Warnings," discusses the various error 
messages, error flags, and warning flags you may receive when using the 
Macro Assembler and the error messages you may receive when using the 
Macro Update Program. 


Marginal notes have been included in this publication to allow easy 
reference to matter within the text. 


The coding forms used in this manual are: for Macro Assembler 
statements, the 1130/1800 Assembler Coding Form, Order Number GX33~-8000; 
for other statements, the General Purpose Card Punching Form, Order 
Number GX20-8030. 
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Required Reading 


1130 publications: 

Assembler Language manual, Order Number GC26-5927 
1800 publications: 

Assembler Language manual, Order Number GC26-5882 


System Introduction, Order Number GC26-3718 


Suggested Reading 


1130 publications: 
Disk Monitor System, Version 2, Programming and Operator's Guide, 
Order Number GC26-3717, for information on the Disk Utility Program 
and Macro Assembler control statements and error messages. 

1800 publications: 


Programmer's Guide, Order Number GC26-3720, for information on the 
Disk Management Program and Macro Assembler control statements. 


Error Messages and Recovery Procedures manual, Order Number 


GC26-3727, for information on the warning flags, error codes, and 
error messages. 
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The 1130/1800 Macro Assembler allows you to condense a 
sequence of assembler-language coding that you use over and 
over again into one instruction, a macro instruction. 


If you use the Macro Assembler, you can generalize a 
sequence of coding and then modify it slightly each time it 
is used. You code the sequence only once, defining macro 
parameters that cause the appropriate code to be generated 
for a particular use. The exact code generated when the 
macro instruction is used is based on the conditional 
assembly, automatic name generation, and/or parameter 
substitution facilities of the Macro Assembler. 


The Macro Assembler also allows you to define a language 
that is unique to your application; such a language may be 
simple and/or meaningful enough to be used by a person other 
than a professional programmer. 


THE MACRO INSTRUCTION 


A macro instruction, or macro, is a source program 
statement. When the Macro Assembler encounters a macro, it 
expands the macro by processing a sequence of 
assembler-language statements. This sequence must have been 
defined in a macro definition before it can be used. 


When you define a macro, you specify its operation code 
(macro name), its parameters, and the sequence of 
assembler-language statements to be processed when the Macro 
Assembler encounters the macro name in a source program. 


Using the Macro Assembler, you can define two kinds of 
Macros, temporary macros and stored macros. You should 
define every macro as a temporary macro until you are sure 
that it will execute properly. If it does execute properly, 
and you want to store it, you can include it in a macro 
library. 


TEMPORARY MACROS 


A temporary macro can be used only during the assembly of 
the program in which it is defined. This kind of macro 
isn't saved by the system; if you want to use it in another 
program, you have to define it again during assembly of that 
program. You do not have to define stored macros in order 
to use temporary macros. 


If temporary macros are to be defined, you will need an 
*OVERFLOW SECTORS control statement. Two new parameters, N2 
and N3, have been added to this statement. The N1 parameter 
remains the same. N2 is the number of sectors you allocated 
for the overflow of macro parameters from main storage to 
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disk. This parameter can be zero, and space will not be 

required if the overflow from a macro that is defined or ' 
called with another macro definition never exceeds 100 - 
words. The required size of N2 may be estimated by using 
the following formula: 


N 
Number of words =3+N+), 1/2 (mj+4) : 


N is the number of parameters and m; is the number of 
characters per parameter. For example, the call 

EXPND ALPHA, BETA,C would be computed as 

34 34#1/2(54+1) +1/2( 441) +1/2(1+1)=12 words; the remainders of 
individual terms are ignored. N3 is the number of sectors you 
allocated for temporary macro definitions. You can estimate 
the number of sectors needed by dividing the total number of 
statements in all macro definitions within the assembly by 
40. If you want to retain remarks, you may have to increase 
N3 to accommodate them. For further information on the 
*OVERFLOW SECTORS statement, see the 1130 Programming and 
Operator's Guide, Order Number GC26-3717, or the 1800 
Programmer's Guide, Order Number GC26-3720. 


STORED MACROS 


A stored macro, on the other hand, resides on disk in a 
macro library and can be used by any program. When you 
assemble a program that uses or defines stored macros, you 
must specify which macro library you wish to use during the 
assembly with the *MACLIB Macro Assembler control statement. 


The macro library specified on the *MACLIB statement must be 
defined and initialized before it can be used by the Macro 
Assembler. For details on how to initialize a macro 
library, refer to the discussion on initializing disk space 
in the chapter "The Macro Update Program." The *MACLIB 
statement enables you to access one library selectively 
without having to access all of the stored macros. Multiple 
macro libraries may be accessed in one assembly if you 
logically concatenate the libraries before the assembly. 
Additional information on macro libraries may be found in 
the chapter on the Macro Update Program. 


You cannot define a stored macro within an assembly unless 
you have used an *MACLIB statement. If your program 
attempts to call a stored macro which cannot be found in the 
specified library, the macro call will be flagged as an 
illegal operation. The format of the *MACLIB is as follows: 
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uses 
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LNAME is the name of the macro library to be used in the 
current assembly. For further information on the *MACLIB 
statement, see the 1130 Programming and Operator's Guide, 
Order Number GC26-3717, or the 1800 Programmer's Guide, 
Order Number GC26-3720. 


PSEUDO- OPERATIONS 


Pseudo-operations, or pseudo-ops, extend the capabilities of 
the assembly process. Pseudo-ops are written like 
assembler-language statements, but they are used to provide 
information to the Macro Assembler rather than to generate 
executable code for the program. They can appear anywhere 
within an assembler-language program, providing you follow 
the other rules for their use. 


Several new pseudo-ops have been included for use in 
programs that use the Macro Assembler. These are described 
in detail under "Features of the Macro Assembler" and 
perform the following functions: 


e Defining the beginning and the end of a macro definition. 


e Determining during an assembly whether certain statements 
are to be processed, based on a specific condition. 


e Permitting a program label to be set to two or more 
different values at different points in a program without 
a multiple-definition error condition. 


¢ Logically removing a macro from a library. 


NESTED MACRO DEFINITIONS AND CALLS 


A macro can be defined or called within another macro 
definition. This process is called nesting. The nesting of 
macro definitions is limited only by the physical size of 
your system. You may want to nest definitions to allow the 
dynamic definition (with decisions) of an inner macro when 
you are expanding the outer macro. This can also be used to 
advantage to conserve library space if the same code is 
being used in both macros (the inner one can be called only 
by the outer one). 


The nesting of macro calls is limited to 20 calls per nest. 
You may wish to nest calls to macros so that values from one 
macro can be passed to the other macro. 


MAIN-STORAGE REQUIREMENTS 
THE 1130 


In the 1130 Disk Monitor System, Version 2, the Macro 
Assembler functions as and is fully compatible with the 1130 
Disk Monitor System, Version 2, Assembler. However, the 
Macro Assembler requires 8K words of main storage for the 
macro capability. The symbol table in main storage has been 
reduced in size to accommodate approximately 750 words for 
the resident macro processor. Assemblies that almost 
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The 1800 


exhaust the symbol table area of the Assembler will probably 
require symbol table overflow sectors for successful 
assembly using the Macro Assembler (see the 1130 DM2 
Programming and Operator*s Guide, Order Number GC26-3717). 
The pseudo-operations SET, ANOP, AIF, and AGO (discussed 
later) are also available to the 4K 1130 user. 


THE 1800 


The 1800 MPX Macro Assembler requires a VCORE of 5140 words. 
It occupies no more main storage than, and is fully 
compatible with, the 1800 MPX Version 1 Assembler. 


MACRO ASSEMBLER PERFORMANCE 


If you have a program that has been assembled successfully 
under the 1130 Disk Monitor Version 2 Assembler or the 1800 
MPX Version 1 Assembler, the performance of the Macro 
Assembler will be approximately equal to that of the earlier 
Assemblers. Assembly time will be greater for new programs 
if the Macro Assembler encounters either a macro definition, 
a macro call, or an invalid op code. In the case of an 
invalid op code, the Macro Processor of the Macro Assembler 
will search the temporary macros and/or the specified macro 
library to determine whether the unrecognized op code is the 
name of a macro. 


Macro Update Program 


The Macro Update Program assists you in initializing and 
maintaining macro libraries. Using this program, you can 
add or delete macros from your library, alter those that are 
already in your library, physically or logically join two 
libraries, and perform other functions necessary to 
maintaining macro libraries. 


Error Messages, Error Flags, and Warning Flag 


During the assembly process, the Macro Assembler checks for 
source program errors. If an error is detected, an error 
flag or an error code and message are printed. If a 
questionable instruction is encountered, it is flagged with 
the warning flag (Q)- At the end of each assembly, the 
Macro Assembler prints a message to indicate the number of 
errors and warnings it encountered during that assembly. 
Any errors in the Macro Update Program are detected by the 
Disk Utility Program (DUP) for the 1130 or the Disk 
Management Program (DMP) for the 1800. 
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A macro definition can appear any time after the Macro 
Assembler has completed processing the control statements. 
The definition must appear before the first calli to the 
macro. 


The first statement in a macro definition in an assembly 
must be the MAC (for a temporary macro) or the SMAC (for a 
stored macro) statement. The last statement of a macro 
definition must be the MEND statement. The pseudo-op names 
MAC, SMAC, and MEND must appear in the op code fields of the 
statements. 


No label and no operand are required on these statements. 
Column 35 of the MAC and SMAC statements can be used to 
specify that remarks are retained so that they can be 
printed on listings (see "Optional Remarks"). Note that if 
you exercise this option, you will need additional disk 
space to accommodate these remarks. Comment statements (* 
in column 21) within the definition are always retained and 
listed within the expansion. 


THE DEFINITION PROTOTYPE STATEMENT 


The statement immediately following the MAC or SMAC 
statement is called the definition prototype statement. 

This statement contains the macro name in its op code field. 
The macro name may be from one to five characters long. You 
cannot use a period, a comma, and a left or right 
parenthesis in macro names. A macro name can contain 
embedded blanks or can consist of all blanks. An invalid 
macro name is flagged as an illegal op code. 


If you define a stored macro with a name that is already in 
the library named in the *MACLIB statement, it will be 
flagged as an invalid macro name. A temporary macro of the 
Same name will not be flagged; it will be expanded when the 
macro is called since the temporary macros are searched 
before the stored macros. An apostrophe should not be used 
in the name of a stored macro because once this macro has 
been stored, it cannot be modified or removed from your 
library. 


The label and operand fields of the definition prototype 
statement contain the names of parameters which are supplied 
when the macro is used. A parameter name can be any valid 
assembler-language symbol; an invalid parameter name is 
flagged as an op code error. You may use an op code as a 
parameter, but it must be done carefully because 
substitution will occur for all uses of the op code. 
Parameter names in the operand field are separated by 
commas. Do not include a blank within a parameter name or 
between parameters, as a blank terminates the parameter 
list. If the label field is blank, it is ignored when the 
macro is used. The definition prototype statement must 
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consist of one source statement; no continuation is allowed. 
A maximum of 20 parameter names is allowed. 


The text of the macro follows the definition prototype 
statement and is a sequence of assembler-language 
instructions, calls to other macros, and/or pseudo-ops. The 
statements in the text may contain the parameter names 
specified in the definition prototype statement. During 
assembly, the parameters specified in the call to the macro 
are substituted positionally for the corresponding parameter 
names in the text statements (see “An Example of Macro 
Definition"). Whenever the Macro Assembler prints macro 
definition prototype statements, five-digit decimal sequence 
numbers are printed to the left of each statement. 


The list control pseudo-operations (see the 1130 Assembler 
Language manual, Order Number GC26-5927, or the 1800 
Assembler Language manual, Order Number GC26-5882) can be 
used within a macro definition to control the listing of a 
macro call. If you use an 1800, you may inhibit printing by 
turning sense switch 2 to the ON position. 


You can substitute a parameter into any field or subfield of 
a text statement in the macro definition. A parameter 
substituted into the operand field of a text statement may 
be any valid assembler-language expression. The number of 
characters in the parameter name has no relationship to the 
number of characters actually substituted, except in the 
case of format and tag fields. Both the parameter name and 
the parameter substituted must be exactly one character long 
in order for the parameter to be substituted correctly into 
the format or tag field. Note that the number of characters 
in a parameter on a call may also be significant. For 
example, an increase in the number of characters caused by 
the substitution of longer parameters during the expansion 
may cause the operand field (columns 35-71) to be exceeded. 
Any information beyond column 71 will be ignored. 


The slash, comma, period, plus sign, minus sign, and 
asterisk retain their usual meaning. When a blank occurs in 
an operand field (except where permitted by the assembler 
language), the rest of the operand field is ignored. 

Special characters used in Macro Assembler statements must 
conform to the character code summaries as listed in the 
1130 Assembler Language manual, Order Number GC26-5927, or 
the 1800 Assembler Language manual, Order Number GC26-5882. 


AN EXAMPLE OF MACRO DEFINITION 


The temporary macro SUM is completely defined by the 
following sequence. A definition of the macro SUM is shown 
below and the call and statements generated by the call are 
shown in the next section. 
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generated 


After a macro has been defined, you call it by using its 
name as an op code and specifying in the label and/or 
operand field the parameters to be substituted for the 
parameter names in the definition prototype statement. The 
parameter names must follow the order outlined under "The 
Definition Prototype Statement." If a parameter name is 
omitted (two commas in a row or a trailing comma), it is 
ignored when the macro is used. 


the parameters you have specified for substitution. 


The assembled instructions are listed along with the macro 
call in the assembly listing. Any statement within a 


with a plus sign to the left of the label field of the Macro 
Assembler listing. 


A sample definition of the macro SUM was illustrated in the 
previous section. Below is an example of a call to that 
macro, and the code generated by that call. 


Labe! Operation i Operands & Remarks 
21 25 27 30) 33) 35 40 45 50 55 
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Parameters specified in the call to SUM are substituted for 


the dummy parameters of the SUM definition prototype ~, 
statement. LOOP is substituted for NAME, 2 for X, 10 for 3 
COUNT, FROM for LIST, and TEMP for STOR. There's nothing — 


special about the parameter in the label field of the call; 
it's substituted just like any other parameter. In fact, it 
need not even be used as a label in a macro definition; it 
can be used as an op code or an operand. For example, the 
macro DIVBY could be defined as follows (note that a while A 
appears in the label field of the definition prototype 
statement, it is used as an operand in the text of the 
macro) : 


Label Operation T | Operands & Remarks 
21 25) 27 30) 33) 3s 40 45 50 55 


we | Or vrlolel [6,Y,", MACRO 
mw, | 1A, 2 S| OT ,060 &Y, 2 
me. 114, AMO! [Al ARE, SINGLE WORD VARIABLES 


Poa | MEMO! | | | 
paseaegs ge ay] 


When you call a macro, you may want to leave out one or more 
of the parameters. If the parameter to be left out would 
ordinarily be in the label field of the call, just leave it 
out. If the parameter would ordinarily appear followed by a 
comma in the operand field, leave out the character string 
to be substituted, but include the comma that would 
ordinarily follow the parameter. If the parameter 
ordinarily comes at the end of the operand field, you may 
leave it out. If you leave out one or more parameters that 
ordinarily come at the end, you may leave out all the commas 
that immediately precede them. If you anticipate omitting 
parameters that will be parts of AIF or AIFB expressions, 
refer to the section "Unspecified Parameter Checking" for 
restrictions on this operation. 


The following examples illustrate the omission of * 
parameters. 
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The macro DCS generates DC statements. For example: 


piri | Joes, [TTT 2.3 


would generate 


Omitting parameter B in a call 


ee oes the ee rat O.00 


would cause 


to be generated. Note that the operand of the second pc 
Statement is blank because its associated parameter was 
omitted. 


You should be extremely careful when omitting parameters 
because nothing is substituted for the parameter that is 
missing. Consider the following example; in the first call, 
the parameter is not missing and the code is generated 
properly. In the second call, the second parameter is 
missing and the generated code is in error. 
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Operands & Remarks 


45 50 55 % 


LS) 

3 
Cc 
Cg 
2s 

N 

eal 

No 
U 
gs 
- 
3 

ane 

Ww 

a 

3 


|_| 

|_| 

|_| 

| 
\ 


macro 


m 
| aad 
| | 
|= 
RxPR 
oO 
[>| 
| 
| 
|_| 
is 
tS 
dD 
fen) 
Sy 
SN 


definition 42 C +H A a attsts 
eeu Gege Cc A,A,+ t 
| ee, ttt lee 
eg | ENOL 1s 
eeeee seed eae 
faveel news Hane 

macro call te GL AOA o-e\|x| | | | 2 2. 2 3 
| ie. [it ls 

code ere a 

generated Pay ee Os eS 
FeeEt Geers GRRE 
ive eee SESE 

macro call | AAT | I Loo 3 
ween eR 

code eres Xe ERA 

generated ee BC 
Seren Dee e ERE 


Substituting a Character String for a Parameter 


You can substitute a character string containing embedded 
blanks and special characters (such as commas, periods, or 
slashes) for a macro parameter name by enclosing the string 
in parentheses. This makes it easy to pass a set of 
parameters to a nested macro call. However, you must be 
careful in passing character strings to ensure that 
parameters do not exceed the record length, as any 
information beyond column 71 will be ignored. 


Assume in the example given below that SEE is a previously 
defined macro with a maximum of three parameters specified 
string in the operand field. If another macro SCAN calls SEE, 
substitution parameters may be passed to SEE as shown: 


character 
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Label Operation T Operands & Remarks 
21 25 27 30 33 35 40 45s 50 55 


a | mae 
eeiniton | sea Oa 
Seen 5 Cae oe! 
rere 
macro call L...,/S¢am [|W ABSLE, (VALL,, VALS) 
es eee FDS 
code Pi | ee TT 7 482e. 
ee a SE he MAG i Arabs 
peer a) eet 
Without this facility the same SCAN macro would have to be 
ae defined as follows in order to generate the above statement 
limits Sequence. Notice that this second method may be restrictive 
in passing parameters, because a definition prototype 
Statement may have no more than 20 parameters. 
SP el ome 
21 25 27 30) 33 35 40 45 50 55 
eT SCAM | WACO DEFINITION 
Ps. | mac, | TTT 
Pore loa 5 Uae y eee a eT ee 
Peg ED 2 
eg a MISE  PWad ow 
P. i | meno [TT | 
pa tale etal | 
in message You can also use character-string substitution to generate 
generation messages. An example of this is given below. 
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macro definition 


macro call 


code 
generated 


pa I Per he 
21 25) 27 30) 33 35 45 50 S55 60 


40 
* ,, 1 MSC) | MESSAGE, MACRO, 
ie, , | Ir, FS) WIEl CHARACTER, CODE, {TYPE 
m1 reéx7l isl (7A E MESSAGE, TEXT, 
sumac | 


Yt 
S 
mh 
%& 
(e 
| 
WY 


MsG. || [| |t..02AW¥ ALTO, C.0O.N7 ROL STATEMENT) 
| Y | dt] 17.8! 

| lOMES| | [4] (TWYALTO, CONTROL, STATE, ENT.'E, 
seeweneee 


ee 


Continuing Calls to Additional Records 


place a 
charecter 
in col. 32 


reptacing 
consecutive 
fields 


A call to a macro may be too long to fit on one record, so 
the Macro Assembler allows calls to be continued onto one or 
more additional records. When you call a macro, you 
indicate that there is another record in the call by placing 
any character other than a blank in the format field (column 
32). You can then continue the macro call beginning in 
column 35 of the next record. The first 31 columns of the 
next record are ignored; column 32, if used, specifies 
continuation of the call onto still another record. 


Note that on continued calls, you must be careful in 
substituting parameters that have more characters than those 
in the original definition, because you may cause the 
operand field to be exceeded on either the CALL record or 
any subsequent continuation records. Therefore, some of 
your values may be lost (see "Macro Parameter Substitution" 
in the section on programming techniques). 


When a macro call is continued onto an additional record, 
the Macro Assembler will stop its parameter scan of the 
first record when either there is a blank (not within 
parentheses) in the operand field or the operand extends to 
and includes column 71. The next character in your 
parameter list is assumed to be in column 35 of the next 
record. 


Using parentheses and continuation records, you can replace 
any number of consecutive fields in a macro definition 
statement. Look at this example: 
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te 


macro 
definition 


macro call 


code 
generated 


Labe! Operation i T Operands & Remarks 
21 25 27 30) 33 35 40 45 50 55 


Here's a call to the ONION macro: 


Label Operation Operands & Remarks 
21 25] _}27 30) 33|__j35 40 45 50 5 $3 


iy 60 
iON, Olvis| | NAME, LD 40,08. 16S, AT 8) 
[| [-f,2,0,6 COMMENT) 


Label! Operation Bua Operands & Remarks 
21 25 27 30) 33) 35 40 45 50 55 


WAME, | 10.0, ,|!/] | [400R LD XYZ 
fT. ..,/(sa7,{]] ile 

epee (7,0, | Boe COMMENT 
Seen © eae wee 


In the macro call, the instruction NAME LD ADDR replaces 
the label. The remaining fields, LD XYZ, are displaced to 
the right. The Macro Assembler treats these fields as 
remarks because in this example there are two blanks after 
ADDR. 
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Macro Assembler Features 


Conditional Assembly Pseudo-Operations 


definition 


format 


conditions 


AIF 
function 


You may want different calls to the same macro to produce 
different lines of assembled code, depending on some 
condition to be examined during the assembly. Conditional 
assembly pseudo-ops allow you to do this. These 
pseudo-operations do not generate any executable code and do 
not modify the address counter. 


Applications which require slight code modifications to a 
general technique need be coded only once using conditional 
assembly pseudo-ops within macro calls. This saves time for 
the programmer. 


AIF, AIFB PSEUDO-OPS 


Two conditional-assembly pseudo-ops, the “assemble if" and 
"assemble if back" pseudo-ops AIF and AIFB, have the 
following format: 


e An optional label. 
e The op code (AIF, AIFB). 


e In the operand field, a left parenthesis, an expression, 
one or more blanks, a condition, One or more blanks, 
another expression, a right parenthesis, a comma, and a 
name. 


The two expressions can be any valid assembly expressions. 
The name should be a valid assembler-language symbol or may 
be left blank. It may also be any combination of from one 
to five characters if this combination is used in the label 
field of one of these pseudo-ops: AIF, AIFB, AGO, AGOB, 
ANOP, PURG, LIST, EJCT, HDNG, MEND, END, or SPAC. All 
symbols used within AIF or AIFB statement expressions must 
have been predefined or the statement will be flagged with a 
U (undefined symbol). If the name is left blank, the 
statement will be flagged with a warning flag (Q). 


The condition must be one of the following: 


EQ-Equal to 

GT-Greater than 

LT-Less than 

NE-Not equal to 

GE-Greater than or equal to 
LE-Less than or equal to 


< 


During assembly, the condition statement between the 
parentheses is evaluated. If it is true, the AIF statement 
causes all the following statements to be skipped (and not 
processed) until the Macro Assembler finds a statement with 
a label corresponding to the symbol specified in the AIF 
statement. If the statement between the parentheses is 
false, the assembly continues with the statement immediately 
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following the AIF statement. The AIF statement may be used 
anywhere in a assembler-language program. 


The AIFB (AIF back) statement functions as the AIF 
statement, except that the Macro Assembler returns to the 
beginning of the current (innermost within a nest) macro 
definition being expanded (called) before searching for a 
AIFB label. Unlike the AIF statement, the AIFB statement may 
function occur within a macro definition only; it is flagged as an 
illegal op code if it appears outside of a macro definition. 
If the search is unsuccessful, the MEND statement will 
terminate the search and the expansion of that macro. 


If the name subfield of the AIF or AIFB operand is left 
blank and the label search is to be performed, statements 
are skipped until the first statement with no label is 


if symbo! encountered, at which time assembly continues. In any case, 
subfield when a label search is performed, the search can continue 
is blank until an END statement is encountered; the END statement 


will be processed and flagged with a Q. If the AIF 
statement is in a definition, a MEND statement will 
terminate the search. 


Let's look at an example of the use of AIF. 


21 25 27 30 33 35 40 45 50 55 


AIF SP,0,0K| 2.0, , | | | | l64,0$,7 
example | 1S.7,0, | [| | wi7.¢4 
| TTT Tl ltx+4, £0, ¥% 
HOPE, | wox, | | iti [2 
WHEE | MoOXx, | | |2| |£ 
| | 
| | 


The assembly of this code depends on the values of X+1 and Y 
when the Macro Assembler evaluates them. If they are not 
equal, all the instructions shown above are processed. If 
they are equal, only the following three instructions are 
assembled. 


eae acer la ee nie 
21 25 27 30 33 35 40 45 50 55 


SP,0,0,K) |¢,0, , | | | | |6,4,0,5,7 
results fi. 11 |8,7,0, | | | | M2704 
fii | MAX, | | | | [SP.0.0,« 

eee Fe 
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format 


AGO 
function 


AGOB 
function 


if symbol 
subfield 
left blank 


Notice that the second AIF has a blank name field. As a 
result, the first instruction following this statement with 
a blank label field is assembled. 


AGO, AGOB PSEUDO-OPS 


Two other instructions are used along with AIF and AIFB to 
effect conditional assembly. These pseudo-ops, AGO and 
AGOB, cause unconditional branching and have the following 
format: 


e An optional label. 

e The op code (AGO, AGOB). 

e A valid assembler-language symbol or five blanks in the 
operand field. If the name field is left blank, the 
statement will be flagged with a warning flag (Q). 


The name should be a valid assembler-language symbol, or may 
be left blank. It may also be any combination of from one 
to five characters if this combination is used in the label 
field of one of these pseudo-ops: AIF, AIFB, AGO, AGOB, 
ANOP, PURG, LIST, EJCT, HDNG, MEND, END, or SPAC. 


The AGO statement causes the Macro Assembler to skip (and 
not process) statements following the AGO statement until it 
encounters a statement with a label corresponding to the 
symbol specified in the AGO statement. See the ANOP section 
of this manual for an example of the use of the AGO 
instruction. The AGO statement may be used anywhere in an 
assembler-language program. 


The AGOB (AGO back) statement functions as the AGO 


statement, except that the Macro Assembler returns to the 
beginning of the current (innermost within a nest) macro 
definition being expanded before performing the label 
search. If the search is unsuccessful, the MEND statement 
will terminate the search. Unlike the AGO statement, the 
AGOB statement may occur within a macro definition only; it 
is flagged as an illegal op code if it appears outside of a 
macro definition. 


If the operand of the AGO or AGOB statement is left blank 
and the label search is to be performed, statements are 
skipped until the first statement with no label is 
encountered. In any case, when a label search is performed, 
the search can continue until an END statement is 
encountered. Like the AGOB statement, if the AGO statement 
is in a definition, a MEND statement will terminate the 
search. 


UNSPECIFIED PARAMETER CHECKING 


The name searching technique used by the AIF and AGO 
pseudo-ops may be utilized in checking for unspecified 
parameters. 


Assume that the COUNT parameter on the following prototype 


statement is a count of how many data words are to be moved 
from one area to another. 
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Label Operation T Operands & Remarks 
21 25 27 30) 33| 435 40 45 50 55 


fii | MAC, | | | | | 

Pi | Mowe | | | FROM, 710, COUNT 
L. 11111460, | || | eoumr 

fi ii. | A4WoP| || | | 

Mii i | (S47, | | | | Iz 
Li...) 460, | || | Bé6.2M, 

COUNT |AWOP | | | 


If COUNT is not specified in a call to MOVE, the name search 
prompted by the AGO COUNT statement will be terminated on 
the ANOP statement that follows immediately, because a blank 
was substituted for COUNT and the ANOP has a blank label 
field. 


If COUNT is specified, the COUNT that is a label on an ANOP 
statement will be replaced with the COUNT specified in the 
call. Thus, the name search prompted by the AGO COUNT 
statement will terminate on the ANOP statement that has 
COUNT as a label. 


SPECIAL CONSIDERATIONS USING AIFB AND AGOB 


Note that if the AIFB or the AGOB causes a second assembly 
of the same code, multiple label definition errors may 
occur. It is your responsibility to ensure that the label 
to be skipped to is either unique or not entered in the 
symbol table, that is, a label on an AIF, AIFB, AGO, AGOB, 
SPAC, EJCT, HDNG, LIST, MEND, END, PURG, or ANOP statement. 
Also note that with the capability of the AIFB and AGOB, you 
can put the Macro Assembler into a loop. This will occur if 
the conditions never get changed, thus causing the Macro 
Assembler to loop between the AIFB and AGOB statements. The 
call below will cause the AIFB expression to be evaluated 
always as true (8 LE 20) because the AIFB to A will cause a 
branch to the first statement labeled A within the macro. 
Thus, the Macro Assembler will loop interminably between 

"A SET X" and the AIFB statement. 
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Label fi Operation fi 7. Operands & Remarks 
21 25 27 30) 33 35 40 45 50 55 


ANOP Pseudo-Operation 


purpose 


format 


The purpose of the ANOP pseudo-op is to provide a label 
which an AIF, AGO, AIFB, or AGOB can reference to resume 
assembling. Assembling an ANOP label has the same effect as 
assembling the instruction immediately following it. The 
label on an ANOP is not placed in the Symbol table, so 
Statements other than AIF, AGO, AIFB, and AGOB can't use it 
as a reference. This is also true of other labels as 
discussed previously under "Special Considerations Using 
AIFB and AGOB." 


The format of the ANOP statement is: 


e A label. 
e The op code ANOP. 


The ANOP pseudo-operation allows you to associate temporary 
and permanent labels with the same instruction. Thus, the 
temporary label can be used to clarify a conditional 
assembly sequence while the permanent label can be used to 
clarify the instruction sequence. 


The following is an example of a way in which ANOP might be 
used. In this example, A is assumed to have been defined 
prior to the AIF statement. 
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Label Operation 3 Operands & Remarks 
21 25 27 30 33 35 45 50 55 


40 
eee Ee Ree ona 
seran ot Ll iewred 


ANOP 

example ri 60, [TT SAP! 
SKI,P1| IANO P| | || | 
SE7O1| (¢.0, {|| | M7 a2 
sKIP2| |ANOP| | | |] 
ee A 
When A is less than 0, the generated code is: 

| 

Sé7o4| ito, | 111 inM7,02 
Pt is,70, | [IL ISM 7.6.4, 
ANOP is useful when you're using the SET pseudo-op. An 
example of this usage is given in the “SET Pseudo-Operation" 
section. 

SET Pseudo-Operation 
SET allows you to assign a value to a symbol and, later in 
the assembly, assign another value to the same symbol 
without a multiple label definition error resulting. The 
symbol retains the value of the last SET statement 

purpose associated with it from the first pass of the Macro 
Assembler until the Macro Assembler encounters an associated 
SET in the second pass. You can't use the EQU statement 
this way because the EQU statement is not processed on the 
second pass of the Macro Assembler and, consequently, cannot 
be used to change the value of a symbol during the assembly. 
The format of the SET statement is: 
e A label. 

format 


e The op code SET. 


¢ A valid assembler-language expression in the operand 
field. 


The label is set equal to the value of the expression in the 
operand field. Any symbols used within the expression on a 
SET statement must have been predefined, or the statement 
will be flagged with a U (undefined symbol). 
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SET 
example 


Here's an example of the use of SET. Suppose A is the 
starting address of some data to be sent to disk, and B is 


SECT equal to the number of sectors. The Macro Assembler 
automatically calculates the value of SECT in the following 
Statement sequence. 


Label i Operation A T El Operands & Remarks 
21 25] {27 30) 33] 135 40 45 60 55 


(next instruction) 


In the above example, N, the difference between B and A, is 
compared to 320 by the AIF instruction. If the difference 
is greater than 320, the first SET following the AIF 
statement sets SECT to 2. The AGO then causes the assembly 
to continue around the next SET and the assembly proceeds. 


If the difference (N) is less than or equal to 320, AIF 
causes the assembly to continue at ONE. This is equivalent 
to a continuation at the second SET following the AIF 
statement, since ONE is an ANOP instruction. Notice that it 
is impossible to branch directly to the correct SET 
instruction, since two SET instructions in the sequence 
contain the label SECT. If the AIF statement specified a 
branch to SECT, the Macro Assembler would continue 
processing with the next statement having SECT in its label 
field--in this case, the wrong instruction. 


Here's another example of a macro that uses SET. 


Label ‘ Operation FE Operands & Remarks 
21 25 27 O 33 35 40 45 50 56 


~.. [ is47, [1 1 [la 
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Given variables A and B, the TAB macro defines a constant 

equal to A times B. It next defines a constant equal to am 
this product times B. It continues this way until the = 
result reaches a specified value, C. Note that if A and B 

are equal, TAB builds a table of powers of B. 


PURG Pseudo-Operation 


purpose 


format 


The PURG pseudo-operation removes the specified macro name 

from the macro library associated with the assembly by the 

*MACLIB control statement. PURG causes operations to occur - 
only on the library associated with the *#MACLIB control 

statement; it does not affect any other library even if it 

has been concatenated to the associated library (see MUP 

section on “Joining Macro Libraries Logically"). 


You can then define another macro with the same name, but 

the space occupied by the purged macro isn't available for 
reuse until the next DMP/DUP macro update job is performed 
on the library (see "Macro Update Program"). The space is 
reclaimed by any macro update function run on that library. 


The format of the PURG statement is: 


e Optional label (can be used as a target for pseudo-ops). 
e Op code PURG. 
® Macro name in the operand field. 


The macro name must be enclosed in apostrophes (the first 

apostrophe must be in column 35). If the macro name is not a 
properly formatted, is missing, or cannot be found, the PURG ) 
statement will be flagged with a warning flag (Q) and the - 
PURG operation will not be performed. 


Automatic Name Generation 


purpose 


use an 
apostrophe 


generates 
a five 
character 
label 


problems 
in nested 
macros 


If your macro definition contains a label that isn't a 
parameter of the macro, and if you call the macro more than 
once in a given assembly, you'll get a multiple-definition 
error for that label. You can get around this problem by 
making all labels used in macros parameters of the macros, 
but then you have to supply all the labels every time you 
call a macro. An easier method to use is automatic name 
generation. 


Instead of writing out a complete label in the macro 
definition, you write from one to four alphameric 
characters, the first of which must be alphabetic, followed 
by an apostrophe. Each time a macro is called in a given 
assembly, the Macro Assembler replaces the apostrophe with a 
number--a different number each time. 


The number of digits added to your label always causes a 
five character label to be generated. For example, repeated 
uses of the label P' result in the labels P0001, P0002, 
P0003, and so on. Repeated uses of the label PAM' result in 
PAMO1, PAMO2, PAMO3, and so on. 


The digits inserted into your label by the above method are | 
determined by a counter maintained by the Macro Assembler. : 
When the Macro Assembler encounters a macro that utilizes 

the automatic name generation feature, the counter is 
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MAC 1 


incremented by one and remains at that value until the 

MAC 2 expansion of that macro is complete. This causes a problem 
MAC3 when other macro calls are included in the first macro (that 
| is, the nesting of macros) and one of them is called twice. 

MAC3 in the diagram at the left is called twice within the 

nest. If MAC3 contains labels in the form of letters 

followed by an apostrophe, the same set of labels will be 

generated twice because the counter is not incremented until 

MAC1 is completed. 


MAC 3 


The way around this problem is to place an apostrophe before 
the characters in the label. The Macro Assembler replaces 
this apostrophe with a different alphabetic character 


use an (beginning with A) each time a macro is called within 
apostrophe a given nest. Thus, if the label ‘RAB is used in a macro 
before and the macro is called four times in the same nest, the 


labels generated are ARAB, BRAB, CRAB, and DRAB. 


You can use apostrophes at both the beginning and the end of 
a label; in fact, this is the simplest way of ensuring that 


begin and you don't get multiply-defined labels. The label 'C' can 
end with result in labels from AC001 through TC999 (T rather than Z 
apostrophe because only 20 levels of macro nesting are allowed). The 


label *SPY* can result in labels from ASPY1 through TSPY9. 


Note that if you alternately call macros with automatic name 
generation, the numbers of the generated labels will also 
alternate. For example, if you call two macros alternately 
and the first has a label C* and the second has a label D', 
the resulting labels would be C0001, D0002, C0003, p0004, 
and so on. 


The Macro Assembler also automatically generates labels in 
the remarks field (not on comment records) of 
assembler-language statements. For this reason, you must be 
careful when using apostrophes within a remark. 


Concatenation 


By concatenating two parts of a field, you can join a 
parameter to a character string, two parameters, or two 
character strings. You can use either a period or an 
ampersand as a concatenator. The ampersand functions as a 

period or concatenator only if it appears as the first character ina 

ampersand parameter of a definition prototype statement. Otherwise, 
it functions as a plus operator. If you use the ampersand 
as a concatenator, you may use six characters, including the 
ampersand, for the parameter name. 


period The following example shows several uses of period 
example concatenation. 
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macro 
definition 


macro call 


code 


generated 


macro call 


code 
generated 


ampersand 
example 


ee ee ail Operands & Remarks 5 
21 25|_|27 30 33| [35 40 45 50 55 -- 


fou | MAC, | | | 
WAM, | MOVE! | | | AB, CM MU 
po | OX | | IM 
x, WAM |2,0,. Al [LI] 14,8,. .C 
Pe | IS,7,- 8 [ev] 148,. 6 
Pi | mOx, | IM | 

Pei | Ox, | tt | WAM, 
eT 
Peewee dea EERE 


Using the above definition with the macro calls below, the 
code following the calls would be generated. 


Label Operation Operands & Remarks 
40 4s 50 55 


eT aie ACRO, CALL 
cided 


Care swe ~ 
FDARS, | MOVE | | | 111 25 te Dd 
fr... | (4.0%, | | [4| [9 
KF IRS] (2,0, , | |el4| 4825 
f, 1.1! (8,70, | [elt] 16,8,2,5 
ee 
L111 | mor ||| | MAAS 
ABLE, | Morel | | | (0,2, 641,501,812 
2ox, | | |3| [1,6 
200 | \eP| [4,422 
L\3| \@,8L 4 


2S 
SLN 
x[s 

Se ee 
ea 
Gy 
| 
Ny 


Notice that in the above examples, parameter substitution 
does not occur for A and B in the names AS.C and BB.C. You 
need to be careful when you are using any op code as a 
parameter, because substitution will occur for all uses of 
that op code. 


The following examples show several ways in which the 
ampersand can be used as a concatenator. Notice in the 


preceded by an ampersand and, therefore, the B is a 
parameter, but the &B is not. 
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Label i Operation fo T Operands & Remarks 
example 1 21 25 27 30 33) 35 40 45 50 55 


macro 
definition 


EES 
Ops 
ti 
om 
iisotl sae 
ae 
a 
D 
&% 


G 
MENS 
9 
ie 
|| 
|| 
|_| 
D 
Ss) 
% 


Pt TST 
Ee De 
| 
|_| 
X 
x 
N 


= 
S 


macro call 


a 


code generated 


rshst tetatots 


~ 
NLS 


example 2 


macro 
definition 


ie ae 
MIS/SL [4 
S[9[s 
tol [oO 
™m 


ER) 
MIN 
= 9 
a 


macro call 


+ 


| | AaXY Z 
TT IXYZaxX yz 


code generated 


~ 
SIS LS 


(eK a Hs a Da 
SIF IS 

8 

Coe el et 


Because a period is used frequently as a decimal point when 
writing DEC and XFIC statements, the Macro Assembler 
inhibits period concatenation when writing these statements. 
The ampersand concatenation feature may still be used. 


Optional Remarks 


When you define a macro, you specify whether or not you want 
remarks on the macro definition statements to be reproduced 
each time the macro is expanded. If you want to keep the 
remarks, place any nonblank character in column 35 of the 

retaining MAC or SMAC statement. The disk space required for the 

remarks macro is increased according to the amount of space required 
for your remarks. Comment statements within the definition 
are always retained and listed within the expansion. 


If parameters occur in remarks, parameter substitution is 
performed for the remarks also. This substitution includes 
automatically-generated names. The Macro Assembler also 

parameters substitutes parameters into comments statements (asterisk in 

in remarks column 21), but it does not substitute 
automatically-generated names into comments statements. On 
such statements, the apostrophe is treated like any other 
character. 


All records are truncated following column 71 of the record, 
and no error indication is given. 
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Indirect Parameter Substitution 


use a 
semicolon 


deter- 
mining 
position 


syntax 
errors 


examples 


macro 
definition 


macro call 


code generated 


macro cail 


code 
generated 


The indirect parameter substitution feature allows you to 
substitute one parameter for another when a macro is 
expanded. You do this by specifying a semicolon followed by 
any valid assembler-language expression, instead of the 
parameter you wish to replace, in the macro call. 


The value of this expression is evaluated by the Macro 
Assembler and is considered to be the position of the 
replacement parameter in this macro call. For example, if 
the expression is evaluated as 3, the parameter in the third 
position is the replacement parameter. Remember, in 
determining the position of the replacement parameter, the 
label field of the call is the first parameter. 


The position number and semicolon are counted as one 
parameter. If the replacement parameter position referenced 
is not specified in the macro call, an empty parameter is 
substituted. An indirectly-specified parameter may select 
aS many as 19 other indirectly-specified parameters. If 
this limit is exceeded, an empty parameter is substituted, 
and the macro call is flagged with a syntax error indicator. 
Processing continues with the next statement. 


If a symbol within a parameter substitution specification is 
not defined before its use, the substituted expression is 
evaluated as zero, the referenced parameter is evaluated as 
a blank parameter, and processing continues. 


The following examples demonstrate the use of indirect 
parameter substitution. 


21 25 27 30 33 35 40 45 50 55 


wac. tll Ld 
Zoe, | eAra tile 
Loc, | ese, |b 

Ime wal | | 


Joe Gee a eee 
P| RT BLL 4 LO CL LOC 2, LOC 3 
Pe | (6S.e, | [el | 14,0,62 

Bree anes 

pawn Ea ae 


In a nested macro call, if the symbol following the 
semicolon is a parameter of the outer macro, the parameter 
must be concatenated to the semicolon for recognition by the 
Macro Assembler. (Concatenation was described previously 
under "“Concatenation.") 
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Division Operator 


a slash 


preceded 
by a term 


The Macro Assembler interprets any slash in the operand 
field as a division operator, unless it can be interpreted 
as a hexadecimal number indicator. A hexadecimal constant 
is indicated by a slash in column 35. A slash preceded by 
an operator is interpeted as the hexadecimal indicator. A 
slash preceded by a term is interpreted as a division 
Operator. A division operator may be immediately followed 
by a + or - to indicate whether the divisor is positive or 
negative. If no + or - follows the division operator, the 
divisor is assumed to be positive. A division operator 
followed immediately by a multiplication operator is flagged 
as a syntax error (S). Division by the internal address 
register (IAR) is allowed in an absolute assembly; ina 
relocatable assembly, it is flagged as a relocation error 
(R). 


Each division operation within each term is performed from 
left to right. The 16-bit quotient is the result of a 
division operation; the remainder is lost. 


The Macro Assembler performs all Operations in an expression 
algebraically. For example: 


(1) 3424472 = 7 (2) 5*2/73+9/-3 = 0 


In example 1 the entire term 2#4/2 is evaluated from left to 
right before it is combined with 3. In example 2 the term 
5*2/3 is evaluated (left to right) first. Then the term 
9/-3 is evaluated and combined with the first term. Note 
that since the result of a division is always an integer 
with the remainder ignored, the first term in example 2 if 
written as 2/3*5 would be evaluated as 0 but 3 would result 
when the term is written as 5*2/3, 


Note that division by zero results in a zero quotient and a 
warning flag. A relocation error flag (R) will be issued if 
either the dividend or divisor is relocatable. If two 
consecutive division operators are found in a Single term, 
the term will be replaced by zero. For example, 27/9/3 will 
not be correctly evaluated and will be replaced by zero; the 
Statement in which it occurred will be flagged as a syntax 
error (S). 


Symbolic Tag Field 


purpose 


in SET 
pseudo-ops 


If you wish to change an index register designation once you 
have coded that portion of your program, you can do this by 
using the symbolic tag field feature. You specify the tag 
field with a one-character symbol which is defined in the 
assembly by means of an EQU or SET statement (see the 1130 
Assembler Language manual, Order Number GC26-5927 or the 
1800 Assembler Language manual, Order Number GC26-5882). 


You may change the value of the tag symbol dynamically when 
using the SET pseudo-operation to define the tag field. The 
tag symbol retains the value of the last SET statement 
associated with it from the first pass of the Macro 
Assembler until the Macro Assembler encounters an associated 
SET statement in the second pass. The EQU statement is not 
read on the second pass of the Macro Assembler and, 
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example 


source 
statements 
{as on listing) 


code listed as 
if these were 
the source 
statements 


consequently, cannot be used to change the value of the tag 
symbol during assembly. 


The following example illustrates use of the symbolic tag 
field in instructions and the code generated by those 
instructions. 


Label Operation F[T Operands & Remarks 
21 25] (|27 30, 1|32)33) {35 40 45 50 55 


A ..1lisé7.| || | lz 
Te | eo, | | lal Is, 
L.00P1| (2,0, , | \clA4| 744,82.2 
S00. a TA BL 2 


-,f 


(oes ae 
GI 
mS 
= 
(es Ne A 
Lal ie 
Sm 
ie oe 
S é 
9 
9 
Xv 
bea 


G 

os 

™ 
|| 

Ee 

N% 


ie 
ma 
| | 
Gls 


1 
L\4| |7,48,2,2 
Z|2| |7,A8,2,2 
| Ia| |-.z 
Y | | 12,0,0,P,2 
|_| | 


2 
zl2|_ lo 
pede 


~ 

o 

° 

v 

Ly 

SaRalkae 
Mm Im = Qi ie 
OMS N[S[s 
“PX OL >< 
Pt ttt 


Programming Techniques 


The following items should help you in using the Macro 
Assembler. 


CHECKING FOR BLANK PARAMETERS 


we SNS 


It is generally desirable to simplify macro calls by 
defining macros so that parameters (preferably the last 
parameter in the call) may be optionally omitted. Passing a 
blank parameter to the macro can cause a special sequence of 
code or no code to be generated. This blank parameter in 
the call causes no substitution to occur for the parameter 
when the macro is expanded. Consider the following 
examples: 
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// JOB 01 JAN 70 00.504 HRS 

// * EXAMPLE 1 SHOWS HOW A BLANK MACRO PARAMETER SUBSTITUTES 
// * WHEN USED IN A MACRO CALL 

// ASM SAMPL Ol JAN 70 00.505 HRS 

*LIST 

*OVERFLOW SECTORS 951 


MAC c BEGIN MACRU DEFINITION 
APPLE GQOD 
00001 DC GOODS5 CONSTANT DEFINED 
MEND END OF MACRO DEFINITION 
0000 START EQU * 
*x 
= THE FOLLOWING CALL TU APPLE 
* CAUSES A SYNTAX ERRUR 
x 
APPLE MACRO CALL 
0000 0 0000 S + oc = CONSTANT DEFINED 
0001 30 059C98CO EXIT 
0004 0000 END START 


001 ERROR(S) AND 000 WARNING{S) IN AROVE ASSEMBLY. 


D46 '*NOLD ON 

DMP FUNCTION ABORTED 

// * EXAMPLE 2 SHOWS HOW A SET INSTRUCTION CAN BE USED 
// * TO BYPASS THE PROBLEM OF SYNTAX ERRORS GENERATED BY 
// * BLANK PARAMETRS IN A MACRO CALL 

// ASM SAMPL O01 JAN 70 00.511 HRS 

=LIST 

*UVERFLUW SECTURS 991 


MAC c BEGIN MACRU DEFINITION 
APPLE GoO0D 
00001 SAPPL SET GOOD BLANK OPERAND SET Tu O 
00002 DC SAPPL*5 CONSTANT DEFINED 
MEND END OF MACRO DEFINITION 
x 
* PASSING A BLANK PARAMETER TO APPLE 
* WILL CAUSE THE VALUE LF ZERO To BE 
* SUBSTITUTED = SEE CALL BELOW 
m 
0000 0 1000 BEGIN NOP 
APPLE MACRU CALL 
0000 +$APPL SET BLANK OPERAND SET TU 0 
0001 0 0000 + bc SAPPL35 CONSTANT DEFINED 
0002 30 059C98CO EXIT 
0004 0000 END BEGIN 


000 ERROR(S) AND 000 WARNING(S) IN ABUVE ASSEMBLY. 


The SET statement is used in Example 2 to avoid Macro 
Assembler errors that can result from passing blank 
parameters. Note the use of $ in the label field. Use of 
$, @, and # in macro labels may help prevent conflict with 
other labels used in the program. These characters may also 
be used in conjunction with the automatic name generation 
feature. 


RESTRICTIONS ON AIF, AIFB, AND SET PSEUDO-OPERATIONS 
ee ee SY el PSEUDO-OPERATIONS 


We have said that symbols used either in the SET operand 
field or in the AIF or AIFB expression must have been 
defined before the referencing SET, AIF, or AIFB statement 
is processed. Since symbols used as above in AIF, AIFB, and 
SET are evaluated at the time they are first encountered, 
they are flagged with the U error even if the symbols are 
defined later in the program. This error flagging has been 
implemented to help ensure that code generated by SET, AIF, 


Macro Assembler Features 29 


or AIFB statements is the code intended by the user. See 


Example 3. 


// JOB 01 JAN 70 00.517 HRS 
// * EXAMPLE 3 ILLUSTRATES THE RESTRICTION ON THE AIF OPERATION 
// * THAT A SYMBOL MUST BE DEFINED PRIOR TO ITS USE IN 

// * THE SET, AIF, OR AIFB OPERATIONS 
01 JAN 70 00.517 HRS 


7/7 ASM SAMPL 
*LIST 
*OVERFLOW SE 


0000 90 1000 


0001 30 059C 
0004 0000 


CTORS 


00001 
00002 
00003 
00004 
00005 


98CO 


92 


CONT 
A 


EXIT 
* 
B 


EGIN 


MAC 
TABLE 
AIF 


SET 


Cc 


BEGIN MACRO DEFINITION 


(A LE 0),EXIT EXIT MACRO IF A LE 0 


/OOFO+A 
A+1 


CONSTANT DEFINED 
INCR A 


AIFB {A LE /F)sCONT END TABLE IF A GT 15 


MEND 


END MACRO DEFINITION 


IF A 1S NOT DEFINED PRIOR TO THE CALL 
TO TABLE, NO TABLE WILL BE GENERATED 
SINCE A IS EVALUATED AS ZERO 


NOP 
TABLE 
AIF 
EXIT 
END 


MACRO CALL 


{A LE 0),EX1T EXIT MACRO IF A LE O 


BEGIN 


001 ERROR{S) AND 000 WARNING(S) IN ABOVE ASSEMBLY. 


LABEL AND BLANK PARAMETER CHECKING USING AGO 


LABEL AND BLANK 2a 2* oe 


The Macro Assembler does not have an explicit method for 
However, the AGO and ANOP 


character string comparison. 
pseudo-operations provide a mean 
within and outside of a macro. 


// JOB 01 JAN 70 00.525 HRS 


// * ERRORS TO OCCUR 


// DUP O01 JAN 70 00.525 


*DELET D 


MACRO 


DMP FUNCTION COMPLETED 


*DFILE 


WILL RESERVE AT SCTR ADDR 


MACRO 


DMP FUNCTION COMPLETED 
*MACRO UPDATE 
BUILD *MACRO! 


ENDUP 


// ASM SAMPL 


*MACLIB MACRO 


*LIST 


30 1130/1800 Macro Assembler Programming 


00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 


s of label checking both 
Consider Example 4. 


*% EXAMPLE 4 ILLUSTRATES THE USE OF THE AGO AND ANOP OPERATIONS 
// * TO HANDLE BLANK MACRO PARAMETERS WITHOUT CAUSING ASSEMBLER 


038D 0005 ** LIBRARY END ** 


0000 


LABEL 
LABEL 


% 


READ 


UPDATE COMPLETED 


SMAC 
DISK 
LIBF 
AIF 
AIF 
AIF 
LIST 


01 JAN 70 00.531 HRS 


Cc BEGIN MACRO DEFINITION 
FUN1 ,ARE1,ERR1 
DISKN CALL TO DISKN SUBR 


{FUN1 EQ 1),READ TEST FOR READ FUNC 
(FUN] EQ 3),WRITE TEST FOR WRITE FUN 
(FUN1] EQ O)eTEST TEST FOR TEST FUNC 


ON 


ILLEGAL REQUEST 


LIST 
AGO 
ANOP 


EXIT 


EXIT MACRO 


) 


“) 


0000 


0001 


0002 


0003 
0004 
0005 
0006 


0008 


0009 


OOOA 
OOO 
Q00C 
oooD 


OOOF 


0010 


ooll 


0012 
ool3 
0014 
0015 


ool? 
0019 
OOl1A 
0018 
015C 


00010 
00011 
00012 
00013 
00014 
00015 
00016 
oool7 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
000 33 
00034 
00035 
00036 


20 04262495 


ooor 


jo) 


20 


1000 


0019 


0005 
7003 
0000 
4C80 


0426 


0000 


oo0b 
YOFC 
7002 
0002 


0426 


3000 


0019 


0014 
7003 
0000 
4C80 


059C 
0140 
0100 
0140 
0000 


000 ERROR{(S} 


0005 


2495 


2495 


0014 


98CO 


AND 003 WARNING({S) 


+START 


+ 
+ 
+ 


+++ 


tee eat 


tee ete ee eee gg 


+ 
+ 


WRITE 


TEST 


ARE1 


AREA 


ERR1 


EXIT 
START 


READ 


> 
pe) 
m 
> 


TEST 


WRITE 


BUFFR 


AIF 
ANUP 
DC 
AGU 
ANOP 


/1000 READ FUNC CONDE 

AREA GU ASSEMBLE I/O AREA ADDR 
43000 WRITE FUNC CODE 

AREA GO ASSEMBLE I/G AREA ADDR 
70000 TEST FUNC CODE 

ARE] TF BLANK,yASM NEXT STMNT 
+ 2 AUTOMATIC TEST I/0 ADDR 
mG CONT TO TEST RUSY 

+2 BYPASS DISK HEADER 

2 AUTOMATIC DISK HEADER 
EXIT EXIT MACRO 

ARE1 USER SPECIFIED I/G ADDR 
*—G CONT TO TEST BUSY 

EXIT EXIT MACRO 


I/O AREA ADDR 

IF BLANK,sASM NEXT STMNT 
ERROR ENTRY ADDR 

* BYPASS ERROR SUBR 

HR ENTER HERE ON ERROR 


xn 3 RETURN TO RETRY OPERATION 
EXIT EXIT MACRO 
ERR1 ERROR SUBR ADDR 


END MACRO DEFINITION 
1,BUFFR READ SCTR OFF DISK 
DISKN CALL TO DISKN SUBR 
(1 £Q 1),READ TEST FOR READ FUNC 


/1000 READ FUNC CODE 
AREA GO ASSEMBLE I/O AREA ADDR 
BUFFR~1 I/O AREA ADDR 
TF BLANK sASM NEXT STMNT 
+] ERROR ENTRY ADDR 
%4+3 BYPASS ERROR SUBR 
eK ENTER HERE ON ERROR 
x-3 RETURN TO RETRY OPERATION 
EXIT EXIT MACRO 
0 TEST BUSY 
DISKN CALL TO DISKN SUBR 


(0 EQ 1),READ TEST FOR READ FUNC 
(0 EQ 3),WRITE TEST FOR WRITE FUN 
(O EQ O),TEST TEST FUR TEST FUNC 


40000 TEST FUNC CODE 

IF BLANK sASM NEXT STMNT 
+2 AUTOMATIC TEST I/M ADDR 
eaG CONT TO TEST BUSY 
+2 BYPASS DISK HEADER 
2 AUTOMATIC DISK HEADER 
EXIT EXIT MACRO 
3y9BUFFR WRITE SCTR TN DISK 
DISKN CALL TG DISKN SUBR 


(3 EO 1),READ TEST FOR READ FUNC 
(3 EQ 3),WRITE TEST FOR WRITE FUN 


43000 WRITE FUNC CODE 
AREA GO ASSEMBLE I/O AREA ADDR 
BUFFR-1 I/O AREA ADDR 
IF BLANK ;ASM NEXT STMNT 
e+] ERROR ENTRY ADDR 
+3 BYPASS ERROR SUBR 
eae ENTER HERE ON ERROR 
x-3 RETURN TO RETRY OPERATION 
EXIT EXIT MACRO 
320 WORD COUNT 
40100 SCTR 100 
320 ALLOCATE DATA AREA 
START 


IN ABOVE ASSEMBLY. 
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— 


Note that if a macro parameter, which may be a character P 
string greater than one character, is used in an AIF a, 
statement to check for character values, a syntax flag will 

be generated by such a statement and the value of the 

substituted expression will be zero. See Example 5. 


// JOB O1 JAN 70 00.552 HRS 

// * EXAMPLE 5 ILLUSTRATES PROBLEMS WHICH CAN BE : 
// * ENCOUNTERED WITH CHARACTER STRING COMPARISON 

// ASM SAMPL O01 JAN 70 00-552 HRS 

¥LIST 

*OVERFLOW SECTORS 995 


MAC Cc BEGIN MACRO DEFINITION 
TEST FUNC 
00001 AIF (.FUNC EQ eR),READ TEST FOR R 
00002 AIF (FUNC EQ eW),WRITE TEST FOR W 
00003 LIST ON 
00004 % ILLEGAL REQUEST 
00005 LIST 
00006 AGO EXIT EXIT MACRO 
00007 READ DC /1000 READ FUNCTION 
00008 AGO EXIT EXIT MACRO 
00009 WRITE DC 43000 WRITE FUNCTION 
EXIT MEND END MACRO DEFINITION 
TEST R GENERATE FUNCTION CODE 
+ AIF {eR EQ .R)sREAD TEST FOR R 
0000 0 1000 +READ DC 41000 READ FUNCTION 
+ AGO EXIT EXIT MACRO 
TEST READ GENERATE ILLFGAL REQUEST 
S+ AIF {.READ EQ «R)yREAD TEST FURR 
St AIF {.READ EQ -W),WRITE TEST FOR W 
+% ILLEGAL REQUEST 
: + AGO EXIT EXIT MACRO 
0001 30 059C98CO EXIT 


0004 0000 END READ am 


002 ERROR(S) AND 000 WARNING(S) IN ABOVE ASSEMBLY. 


MACRO PARAMETER SUBSTITUTION 


When special features such as call continuation and indirect 
parameter substitution are used in nested macro calls you 
must account for such special instances as you code your 
macro. If, for example, you anticipate that a nested macro 
call may be a continued call, you must pass the continuation 
indicator and ensure that any parameter string from the 
first call is completed on each nested continuation record. 
See Example 6. If you wish to pass a symbolic value to a 
nested macro call and an indirect substitution expression 
and that symbol appears next to the semicolon, you must 
concatenate the symbol to the semicolon. See Example 7. 
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;in col, 35 
not listed 

by printer, 
but present 

in source code 


// JOB 01 JAN 70 00.561 HRS 
// * EXAMPLE 6 ILLUSTRATES THE METHOD FOR HANDLING CONTINUATION OF 
// *® NESTED MACRO CALLS 
4/ ASM SAMPL O1 JAN 70 00.562 HRS 


*LIST 
*OVERFLOW SECTORS 


00001 
00002 
00003 
00004 


00001 


0000 OQ 1000 
0001 30 059C98CO 


0003 0022 
0014 0000 


000 ERROR{S) AND O00 WARNING{S) 


+95 


GEN 


END 


BEGIN 


MAC 
ABLE 
AIF 
AGO 
ANOP 
MSG 
MEND 
MAC 
MSG 
EBC 
MEND 
NOP 
EXIT 
ABLE 


AIF 
ANOP 
MSG 
EBC 
END 


// JOB 01 JAN 70 00.571 HRS 
// * EXAMPLE 7 ILLUSTRATES A METHOD OF SPECIFYING INDIRECT 
// * PARAMETER SUBSTITUTION IN NESTED MACRO CALLS 

7/ ASM SAMPL O1 JAN 70 00.571 HRS 


*LIST 
=OVERFLOW SECTORS 


00001 
00002 
00003 
00004 


00001 


0000 0 1000 


0001 01 4€000003 


0003 30 059C98C0 
0006 0000 


000 ERROR(S) AND 000 WARNING{S) 


SAMPLE PROGRAM 


+ 
+ 
+ 
+ 


295 


BRANC 


7 


BEGIN 
BRANC 


BRL 


Cc BEGIN MACRU DEFINIT IUN 
AyX 

(A GT 0),GEN TEST TO GENERATE MSG 
END EXIT MACRO 

X 


END MACRO DEFINITION 
BEGIN MACRU DEFINITION 


A GENERATE EBC MESSAGE 
END MACRO DEFINITION 


1,((.THIS IS MACRO GENERATED MSG NO.w 


10.)) 


(1 GT 0),GEN TEST TO GENERATE MSG 


(.THIS IS MACRO GENERATED MSG NO. 
«THIS IS MACRO GENERATED MSG NO. 
BEGIN 


IN ABOVE ASSEMBLY. 


C BEGIN MACRO DEFINITION 
A 


10.) 
10. 


(A GT 2),8RANC GENERATE BR IE A GT 2 


END EXIT MACRO 


eAyBR1,BR2,6R3 GENERATE BRANCH 
END MACRO DEFINITION 
BEGIN MACRO DEFINITION 
LOCN 
LOCN GENERATE LONG BRANCH 


3 


{3 GT 2),BRANC GENERATE &R IF 3 GT 2 


35BR1l,BR2eBR3 GENERATE BRANCH 
BR1 GENERATE LONG BRANCH 


BEGIN 


IN ABOVE ASSEMBLY. 


The following sample program illustrates three macros: 
their definitions, calls to them, and the code generated. 
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// JOB O1 JAN 70 00-6310 HRS 


f/ ® 

// * WACRU ASSEMBLER SAMPLE PROGRAM as 
// * 

// ASK SAMPL O1 JAN 70 00-310 HRS 

=LIST 


*OVERFLOW SECTURS 02091 


= K sie Se ses ok 
# DEFINE A MACRO, nO 
a move * DATA FRUM ONE AREA 
macro ake ake af ale ake 2 2 afe ais 2k ae oR ae ik ae Re he ahs ae ae a ais 3 2s 2k 
MAC : 
LABEL MOVE ERs TOs CNT 
00001 LIST OFF 
00002 AIF (CNT LE 0) swOnVEt#{2) 
00003 LIST 
00004 LABEL LDX L1 -CNT INITIALIZE LOUP COUNTER 
macro 00005 LOOP’ LD Lil FROM+CNT GET WD TO BE MOVED 
definition 00006 STO L1 TO+CNT mUVE IT 
00007 MDX 11 BUMP MOVE (LNOP) COUNTER 
00008 MDX LooP? LUOP UNTIL HAVE COMPLTED 
00009 NOMVE LIST 
MEND 
eee ae ea ee a Hae ea a ae NEE a a RR a BS ea a a a ae RT BR Bea aE oe Se 
DEFINE A MACRO, 'HSG', DESIGNED TO SET UP * 
a message THE PRINTING OF A MESSAGE VIA A DHES STMNT. * 
macro BEE ae ae ao aie a ake ais a fe ake oie aie ai aie ae okt a ok 9K ake oe oh oe oe a as a ae 2 ee eae oe a oe ok ae 
MAC 
MSG TEXT 
00001 DMES 'S TEXT 'E 
MEND 
eae ake aks fe alg ole ale abe afk os ole fe fe ae afc ok ais aie ake oe of ake oi ais 2K og ake aie ye as oie ai ae Se a ae as He ioe Ses SK 2 AE RAC Z ' 
x DEFINE A “ACRO *VKUS? TO CHECK FUR AN * . 
a parameter * UNSPECIFIED PARAKETER IN A MACRO CALL. * se 
checking macro * #VKUS IS SET TO O IF THE PARAMETER WAS : 
x UNSPECIFIED. #VKUS IS SET TO 1 IF THE * 
+ PARAMETER WAS SPECIFIED. * 
SEA Me eA AE ae a a AE a a aa eA a a REE a Re eo ae aaa a ae ee ae as AAR a a 2 a 
MAC 
VKUS PARAM 
00001 AGO PARAM 
macro definition 00002 ANOP 
00003. #VKUS SET 0 
00004 AGO QUIT 
00005 PARA ANOP 
00006 #VKUS SET l 
QUIT MEND 
ee Se oie ne 2 fe he ae ic ac of fe a ae a ac oke e oe aie ae a oe ak ake 2 a a a a aR oe 2K a a a as oe a a Se a 
; * DEFINE TWO MACROS, 'DCS' AND 'DCBty TU * 
DC--generating x GENERATE DC STATEMENTS. ONLY "DCS! IS % 
macros - REFERENCED BY THE USER. 'DCB! IS CALLED * 
* INTERNALLY BY '*DCS'. x 
Ae Sea SE ae ee ee He a a ae ae ae ae Se Be ae ae aka ea oa a sk ak a a ak a a a a oe Re ao a aes Sea a 2s Ae aa 
MAC 
LABEL DCS CNT AspBeCeDoEsFeGeHelodeKob eM aN eO0yP2Q s 
00001 LIST#¢(6) OFF 
VKUS 00002 VKUS LABEL 
macro call 00003 air (#VKUS EQ 0) yBLANK 
00004 LIST 
00005 LABEL EQU # - 
00006 BLANK LIST¢(6)OFF 
. 00007 Zz SET CNT 
iin col. 35 00008 =X SET 3 
not listed 00009 = RETRN AIF {2 EQ 0) ,QUIT 
by printer, 00010 DCB $XpAgBeCoDpEsFeGsHol yd eK oh My eDeP eG 
00011 +X SET Xl 
DUE prezent 00012. «Zz SET z-1 . 
in source code 00013 AGOB RETRN 
00014 QUIT LIST 
END 
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MAC 


DCB Y 
00001 LIST 
00002 oc Y 
00003 LIST OFF 
MEND 


eR a ae fee aK af a ae Se ae of ae ae 2 fe oh eae ae ak ok ak ae a eo ee Ae ae ae he ae seats ae ae a aga oe 
* FIRST-— GENFRATE A VARIABLE LENGTH TA 
(8)-PTABLE DCS 10s05l929394s596979899 
0000 +TABLE EQU cS DCS macro 
0000 0 0d000 + DC 0 call 
0001 0 oOOdol1 + OC 1 
0002 0 0002 + DC 2 
0003 0 0003 (7+ DC 3 
0004 0 0004 + Dc 4 3) code 
0005 0 0005 + DC 5 generated 
0006 0 0006 + DC 6 
ooo? O 0007 + DC t 
0008 0 0008 + DC 8 
0009 0 0009 + DC 9 
Go)}>0¢s 5+ /1000+/2000 4/3000 4/4000 4/5000 
Qt AGD DCS macro 

000A 0 1000 + DC /1000 call 
000B 0 2000 + DC 42000 
oooc 0 3000 + DC 43000 code 
OoOob 0 4000 + DC 74000 tad 
COOE 0 5000 + DC 75000 genera 

a NOW MOVE TABLE TO ANOTHER AREA move macro 

START MOVE TABLE,NEW,15 call 
OOOF 00 6500FFF1 +START LDX L1 ~15 
0011 01 C500000F +LOOP1 LD L1 TABLE+15 
0013 01 D5000028 + STO Li NEW+15 code 
0015 0 7101 + MDX 11 generated 
0016 0 TOFA + MDX LOOP1 
0017 30 059C98CO EXIT 
0019 OOOF NEW BSS 15 

MSG @ficrs DATA HAS BEEN MOVED) 
0028 oo1c + DMES 'S THE DATA HAS BEEN MOVED 'E 
0036 000F END START message code 
generated 
000 ERROR(S) AND 001 WARNING(S) IN ABOVE ASSEMBLY. 
@ The 1 indicates the overflow sector @ All statements resulting from a 
necessary to house temporary macro macro expansion are flagged with a 
definitions in this assembly. plus in column 20. 
f i This is a t i 
lf CNT is less than or equal to 0, s is a call to DCS with the label NOTES 


the definition is not expanded. 


® Sequence numbers of definition 
statements are printed for easier visual 
perception. 


@ The move loop is generated with 
your program’s parameters. 


This AIF checks the call to the 
DCS macro to determine if you want 
a label to be associated with the first 
DC. 


© You can significantly alter a printed 
listing when a macro is called through use 
of the LIST pseudo-op. 


specified. 


® Note how use of the LIST 
pseudo-op caused this expansion to be 
printed. 


This is a call to DCS without the 
label specified. 


@ LOOP1 illustrates the automatic 
name generation feature of the Macro 
Assembler. LOOP1 was named as 
LOOP’ in the macro definition. 


By using parentheses, the parameter 
TEXT (see the MSG definition) is 
replaced by a string of characters into 
a DMES statement. 
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Macro Assembler Language 


The features of the Macro Assembler permit you to create a 
language that can help programmers who are new to your 
installation or who don't understand the more detailed 
aspects of certain operations. This specialized language 
may also be used by programmers who know the operation and 
want to simplify their job or who need to interact with 
persons other than programmers. Such a specialized language 
may also be used to help others learn to write simple 
programs for your system. 


Consider the following 1800 MPX example. 


Mr. Jones is a programmer who works for a sports information 
service center and is in charge of all baseball statistics. 
He has been assigned the following project in response to a 
customer requisition. 


SPORTS INFORMATION SERVICE CENTER 


programmer: A.B. Jones date submitted: September 7, 1972 
date needed: September 10, 1972 customer: 126—3381—07 


Problem: 


1. Read a batch of data cards having the following format: 
columns 1-20 Player's name 
25-28 Number of at-bats 
30-33 Number of singles 
35-38 Number of doubles 
40—43 Number of triples 
45—48 Number of home-runs 


2. Compute the player’s batting average, slugging percentage, and home-run ratio. 
3. Print all the information mentioned in 1 and 2. 


4. Terminate execution of the program when a data card containing an asterisk ("} in column 1 is read. 


Mr. Jones knows that in order to answer this request, he 
will have to use some macros from the general purpose 
library, use some macros from his own library, and use the 
following computations in his solution. 


Batting average=number of hits number of times at bat. 
For example, if hits=13 and at-bats=64, 13 + 64=.203 
The batting average would be .203. 


Slugging percentage=(number of singles + 2 x number 
of doubles + 3 x number of triples + 4 x number 
of home runs) + number of at-bats. 
For example, if at-bats=64, singles=8, doubles=3, 
triples=1, and home runs=l, the slugging percentage 
would be [8+2(3)+3(1)+4(1)] + 64 or 21 + 64 or .328 
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Home run ratio=number of at-bats + home runs. 
For example, if at-bats=64 and home runs=4, the home 
run ratio would be 64 + 4 or 16. 


Mr. Jones then looks in the guide to general purpose macros 
and determines which ones he wants to use. The guide lists 
the macros in a library that have been built by all the 
programmers who work with Mr. Jones. These macros are ones 
that are used frequently by the programmers, such as, read a 
card and print a line. 


The following listing demonstrates how this library of 
macros was created. In this case the library has been named 


SYSTM. 


// 308 00 JAN OC 00.235 HRS 

4/7 DMP 00 JAN 0O 00.235 HRS 

SDF ILE G SYSTM 10 
WILL RESERVE AT SCTR ADOR 04C0 

OMP FUNCTION COMPLETED 

#MACRO UPDATE 

BUILD "SYSTM* 

NAME LABEL, INPUT,OUTPT 

ADD ‘DCBIN* 

04CO 0005 DCBIN 


X ©QOOD1 LABEL CALL DCBIN 
x 00002 oc INPUT 
x 00003 oc OuTPT 
00004 %* MACRO END ** 
ADO ‘BINDC* 
04CO 0019 BINDC 
xX 00001 LABEL CALL BINDC 
x 90002 oc INPUT 
x 00003 oc OUTPT 


00004 ** MACRO END ** 
NAME LABEL ,CNTRL+ AREA eWDCNT 
ADD *LLIST* 

04CO 002D LLIST 


x OCOCl LABEL DC o 
x 00002 oc i) 
x 00003 BSS 4 
x 00004 oc Oo 
x occocs oc CNTRL 
x o0006 oc AREA 
xX 00007 AREA DC wWDCNT 
x 00008 BSS WDCNT 
00009 ** MACRO END 3% 
NAME LABELsLIST 
ADD *ROCRD* 
04CO 0054 RDCRO 
xX 00001 LABEL CALL CARON 
x o0002 oc LIST 
x 00003 LD L LIST 
x o0004 BSC L 4-432 
ocoos ** MACRU ENO >> 
ADD "PRINT! 
O4CO OCO6F PRINT 
X OOCOl LABEL CALL PRNITN 
x 90002 Dc LIST 
x 00003 LD L LIST 
x 00004 BSC L #-4s2 


o0005 *2 MACRO END ** 
NAME LABELsCNTRL» INPUT »OUTPT,CHRCT 
ADD tHOLPR* 

04CO ODB8A HOLPR 


X 00001 LABEL CALL HOLPR 
x 90002 pc At 

x 90003 oc INPUT 
x 90004 oc OUT PT 
x 00005 oc Ale] 
x 00006 MDX a42 

x oocoT At pc CNTRL 
x 00008 pc CHRCT 


00009 ** MACRO END ** 
NAME LABELsCNTRL, AREA, LABL1 yLABL2 


ADD 'SLEST? 
04CO 00B6 SLIST 


X 00001 LABEL DC ie) 
x 00002 oc i) 
x 00003 BSS 4 
x 00004 pc L) 
x O0OOS LABL1 DC CNTRL 
xX 00006 LABL2 DC AREA 


00007 ** MACRO END ** 
04CO 00D5 ** LIBRARY END *3 
ocoo 
ENDUP 
UPDATE COMPLETEO 
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21 27 35 
Format: LABEL DCBIN INPUT,OUTPUT 
This macro calls the DCBIN subroutine which converts 
a decimal value in § 1BM card-coded characters and 1 
sign character to a 16-bit binary word. 

21 27 35 
Format: LABEL BINDC INPUT,OUTPUT 
This macro calls the BINDC subroutine which converts 
a 16-bit binary number to its |BM card-coded decimal 
equivalent. 


21 27 35 
Format: LABEL LLIST CNTRL,AREA,WDCNT 
CNTRL = contro! parameter 
AREA = address of the area to be worked upon 
WDCNT = word count of the 1/0 area 
This macro (“long list’’} generates a nine word 1/O list 
which may be used with the various MPX 1/O 
subroutines. 


21 27 35 
Format: LABEL RDCRD LIST 
LIST = address of the associated 9-word 1/O fist 
This macro, used in conjunction with the LLIST macro 
or the SLIST macro which is shown below, cals the 
CARDN subroutine and also performs a busy test. 


21 27 35 
Format: LABEL PRINT LIST 
LIST = address of thé associated 9-word 1/0 list 
This macro, used in conjunction with the LLIST or 
SLIST macro, calls the PRNTN subroutine and 
performs a ‘’busy”’ test. 


21 27 35 
Format: LABEL HOLPR CNTRL,INPUT,OUTPT,CHRCT 


CNTRL = 0 if 1053 code is desired; 1 if 1442 is desired 

INPUT = address of the area to be converted 

OUTPT = address of the area which will contain the 
converted data 

CHRCT = number of characters to be converted 

This macro calls the HOLPR subroutine which converts 

an area from IBM card code (Holierith) to either 

1443 or 1053 code. 


21 27 35 
Format: LABEL SLIST CNTRL,AREA,LABL1,LABL2 
CNTRL = control parameter 
AREA = address of the area to be worked upon 
LABL1 = label {optional) of the control parameter DC 
LABL2 = tabet (optional) of the area parameter bc 
This macro (“short list”) is similar to the LLIST in that 
anine word I/O list is generated. It is different in that 
the word count and !/O area are not allocated and, also, 
that Jabels, if desired, may be placed on the control and 
area parameter DC statements. The SLIST macro would 
probably be used when it is desired at various points in 
a program to modify the control and/or area parameters. 


He then determines which macros from his library, which he 
has named JONES, are required. This library contains macros 
that he has written because he finds them useful in his job 
of providing baseball statistics. 


The following listing demonstrates how his library was 


created. 


sOFILE o JONES 10 
WILL RESERVE AT SCTR ADOR O4CA 
DMP FUNCTION COMPLETEO 

*MACRO UPDATE 

BUILD 'JONES* 

NAME LABEL sFROM,TO,COUNT 


AOO 'MOVE? 
O4CA COC5 MOVE 

x 00001 LDx Ll FROM 
xX o0002 Lox L2 TO 

x 00003 LOx 3 COUNT 
xX 00004 ‘A® Lo 10 

xX 00005 sto 20 

X 00006 MOXx 11 

xX 00007 MOX 21 

x 00008 MDX 3-=1 

x 00009 MOX RAY 


00010 ** MACRO ENO *% 
NAME LABEL sX-+COUNT,LIST, STORE 
AOO *SuM! 

04CA 0034 SUM 


xX 00001 LABEL LOx X -COUNT 

x 00002 SLA 16 

xX 00003 BF A LX LIST+COUNT 
x 00004 STO L STORE 

x 00005 MOX x1 

x 00006 MOX Bt 


00007 + MACRO ENO = 
NAME LABEL ,AB,HITS,BAVG 


AOO '6aAt 
O4CA 0056 BA 
xX oOO000L Lo L HITS 
x 00002 M or 
x 00003 0 LAB 
x 00004 STO L  BAVG 
x 00005 MOX s+] 
x 00006 0! oc 1000 
O0007 ** MACRD ENO ++ 
A00 'COEQU! 
O4CA 0076 COEQU 
xX 00001 CCl EQu LABEL+1 
x 00002 CC5 Eu LABEL+5 
xX 00003 CC1O EQU LABEL+10 
xX 00004 CC15 EOU LABEL4+15 
X 00005 CC20 EQU LABEL+20 
xX 00006 CC25 EQU LABEL+25 
xX 00007 CC30 EQU LABEL+30 
x 00008 CC35 EQU LABEL+35 
xX 00009 CC40 EQU LABEL+40 
X 00010 CC45 EQuU LABEL+45 
xX 00011 CC50 EOQU LABEL+50 
xX 00012 CC55 EQU LABEL+55 
xX 00013 CC60 EQuU LABEL+60 
xX 00014 CC65 EQuU LABEL+65 
xX 00015 CC70 EQuU LABEL+70 
xX 00016 CC75 EQu LABEL+75 


00017 ** MACRO ENO + 
NAME LABEL «NUMBR;+BY yPROO 
ADD 'MPY! 

O4CA OOF9 MPY 


X 00001 LABEL LO L NUMBR 
x 00002 4 ct 

x 00003 SLT 16 

x 090004 STO L- PROD 
xX 00005 MOXx e+] 

x 00006 Cc? oc BY 


OCOO7 ** MACRD ENO #% 
NAME LABEL+AB,HRsRSULT 
AOD 'HRATE? 

O4CA O1LA HRATE 


X 00001 LABEL LD L AB 
xX 00002 RTE 16 
xX 00003 SLA 16 
xX 00004 D LOHR 
xX 00005 STO L = RSULT 


00006 ** MACRO END = 


NAME LABEL, TEXT+X 


ADD "MSGI! 
O4CA 0135 MSGI 
X 00001 LABEL DC SZPSLY 
x 00002 ‘¥? DMES X TEXT 
xX 00003 '2! BES oO 


00004 ** MACRO ENO *# 
NAME LABEL s TEXT1,TEXT2sX 


AOD *MSG2* 
O04CB OOOE MSG2 : 
x 00001 LABEL DC tztatys 
x 00002 'Y* DMES X TEXT1 
x 00003 OMES xX TEXT2 
X 00004 *2* BES 0 


00005 +¢* MACRO ENO ¥*% 


21 27 35 
Format: LABEL MOVE FROM,TO,COUNT 
FROM = address of the data to be transferred 
TO = address at which the data will be transferred 
COUNT = number of words to be transferred 
The MOVE macro transfers a block of data from one 
area to another. 


21 27 35 
Format: LABEL SUM X,COUNT,LIST,STORE 
X = index register to be used 
COUNT = number of words to add 
LIST = address of the first word to be added 
STORE = address where the sum shail be placed 
The SUM macro calculates the sum of a block of 
contiguous words and places the result into a word 
designated by a STORE parameter. 


21 27 35 
Format: LABEL BA AB,HITS,BAVG 
AB = address of the word which contains the number of 
at-bats 
HITS = address of the word which contains the number 
of hits 


BAVG = address where the batting average shall be placed 
The BA macro calculates a batting average and places it 
into a word designated by the BAVG parameter. 


21 27 
Format: LABEL CDEQU 
The CDEQU macro generates a series of EQU state- 
ments tailored for the processing of data cards. 
LABEL = address of the word count word which 
precedes the buffer into which a data 
card will be read 
Since EQU statements do not increase the size 
{in words} of a program, it is not wasteful if ail of 
the labels generated by CDEQU are not used. 


21 27 35 

Format: LABEL MPY NUMBR,BY PROD 
NUMBR = address of one number to be multiplied 
BY = second number {not an address) to be multiplied 
PROD = address of the word where the product wili 

be stored 
The MPY macro multiplies two given numbers and 
stores the result into a word designated by the PROD 
parameter. 


21° +27. 3 
Format: LABEL HRATE AB,HR,RSULT 
AB = address of the word which contains the number 
of at-bats 
HR = address of the word which contains the number 
of home-runs 
RSULT = address where the home-run ratio will be 
stored 
The HRATE macro calculates a home-run ratio and 
Places the result into a word designated by the RSULT 
parameter. 


20C~C«*Cst—<CS 
Format: LABEL MSG1 TEXT,X 
TEXT = text, using DMES syntax, of the message 
X = O if 1053 message, 1 if 1443 message 
The MSG1 macro facilitates the printing of a message. 
A word count and DMES statement are generated. 


21 27 35 
Format: LABEL MSG2 TEXT1,TEXT2,X 
The MSG2 macro is the same as the MSG1 macro 
except that two DMES statements (for longer mes- 
sages) are generated. 
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NAME LABEL sCHKs TSTCH,LOC 
ADD ‘CHECKS 


O4CB 0028 CHECK 


X OOOOl LABEL LD tL CHK 

x 00002 EOR A’ 

x 00003 BSC L LOCs+- 
x 00004 mOx sel 

x 00005 At DC TSTCH 


00006 ** MACRO END ** 


NAME LABEL +CHAR sWITH,START,COUNT 
ADD *SPRSS* 


O4CB 0049 SPRSS 


x 00001 LABEL LDx 1 COUNT 
x 00002 LOx &2 START 
x 00003 At Lo 20 

x 00004 EOR Bf 

x 00005 BSC L Dted 
x 00006 Lo ce 

x 00007 sta 20 

x 00008 MOX 21 

x 00009 MDX 1-1 

x 00010 mOXx aA‘ 

x 00011 MDX or 

xX 00012 Bt oc CHAR 
x 00013 Ct oc WITH 
x 00014 OF EQu * 

* 
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Format: LABEL CHECK CHK,TSTCH,LOC 
CHK = address of the word to be checked 

TSTCH = value of the word against which the check 

is made 
LOC = “branch to” address for when the check shows 
the words are equal. 
The CHECK macro compares a word against a test 
character and branches to LOC if the two words are 
identical. 
21 27 35 

Format: LABEL SPRSS CHAR,WITH,START,COUNT 
CHAR = the value (character) to be suppressed 

WITH & the value (character) to replace the suppressed 

charecter 
START = address where suppression shall begin 
COUNT = number of contiguous words to check for 
suppression 

The SPRSS macro is used primarily to suppress leading 
zeros in a numeric field about to be printed. For 
example, it would fecilitate printing 63 instead of 
000063. 


CONCAT *SYSTM* <a i allows Mr. Jones to have all the macros in his 
O04CB 0091 *® LIBRARY END *# library available along with the system library, SYSTM. 


ENDUP 


START 


READ 


COLST 
COBUF 
WKBUF 


40 


PRINT 
tox Ll 
STX Ll 
PRINT 
LOX 1 
sTx Ll 
RDCRO 
CHECK 
MOVE 
OCBIN 
MOVE 
OCBIN 
MOVE 


04CO 


UPDATE COMPLETED 


Mr. Jones has now selected all the macros he is going to 
use, and the next step is for him to write the coding. The 
following is a list of the source coding Mr. Jones decided 


to use. 
by using more complex macros. 


Note that he could have further reduced the coding 


(In order to aid 


understanding, the macros in this sample are not complex; 
therefore, the coding required by Mr. Jones is far more 
extensive than would be needed in actual applications.) 


PRLST PRINT FIRST LINE {MES1) 
MES2 GET ADORESS GF MES2 

PROOO SET UP 1/0 AREA PARAMETER 
PRLST PRINT OUTPUT HEADINGS 


COLST REAO A OATA CARO 

CC1e/42202END 

CC25_WKBUF+2 94 

WKBUF,ATBAT 

CC30,WKBUF+2 54 

WKBUF, SNGLS 

CC35_WKBUF+2 94 

WKBUF,OBLES 

CC40,WKBUF+2 54 

WKBUF,TRPLS 

CC45_WKBUF+2 54 

WKBUF,HOMRS 

1e4_SNGLS/HITS 

ATBATsHITS 8 TAVG 

ATBAT,HOMRS ¢RATIO 

OBLES»2,DBLES 

TRPLSs3-eTRPLS 

HOMRS»4,HOMRS 

1y4eSNGLSeHITS 

ATBATsHITS eSPCT 

BTAVGs WKBUF 

WKBUF4+2,CC50 44 

SPCT,»WKBUF 

WKBUF42,CC55 +4 

RAT 10, WKBUF 

WKBUF42 9CC60 +4 

42000+0sCC2553 

/2000,0-CC30e3 

42000 +0,CC3593 

12000 +0+CC40%3 

£2000 502004523 

4200070eCC5091 

£2000¢0¢CC5541 

12000+0-CC60 +3 

1,COBUF+1sCOBUF+1,80 

CDBUF GET ADDRESS OF COBUF 

PRooO SET UP 1/0 AREA PARAMETER 

40 PRINT WORO COUNT 

COBUF STORE PRINT WORD COUNT 

PRLST PRINT OATA 

READ BR TO PROCESS NEXT CARD 

/1000,COBUF +80 GENERATE CARD I/O LIST 
GENERAL CARO EQUATES 

/A000 

42000 

“ WORK AREA FOR OCBIN SUBR 
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ATBAT OC o-2 NUMBER OF AT-BATS 


SNGLS OC a NUMBER OF SINGLES 
OBLES OC a—* NUMBER OF DOUBLES 
TRPLS OC a-3 NUMBER OF TRIPLES 
HOMRS DC baal NUMBER OF HOME RUNS 
HITS OC roe NUMBER OF FITS 

BTAVG OC o-% BATTING AVERAGE 

spect DC o-3 SLUGGING PERCENTAGE 
RATIO DC a-8 HUME RUN RATIO 

PRLST SLIST 72100, MES1s,PROOO PRINT 1/0 LIST 
MESL MSGL {9@EXECUTE SAMPLE PROGRAM**'E),1 


MES2 MSG2 X {(NAME'21SAB*3S18°3S2B'3S3B'3SHR* ) 
4*2SBAVG'SSPCT!' SHRRIE) 93 


MES3) =MSGL (*9eEND OF JOBS9#'E),) 
END LOx Ll MES3 GET ADDRESS OF MES3 
e STx Li PROOO SET UP £/0 AREA PARAMETER 
PRINT PRLST PRINT ENO OF JOB MESSAGE 
CALL EXIT ENO EXECUTION 
END START END OF ASSEPALY 


Mr. Jones then submitted the coding punched on cards to his 
system operator and requested that the job be performed and 
a listing of the operation supplied. The following listing 
shows the assembly and execution of his program. (The 
explanation of the coding is given to the side of the 
listing; the macro instructions are enclosed in rectangles.) 


4/7 ASM SAMPL 
@LIST 
*MACLIB JONES 


00 JAN 00 00.267 HRS 


All macros in SYSTM and JONES may be used in this 
assembly. 


0000 30 17655805 +START CALL PRNTN 
0002 1 0106 + oc PRLST 
0003 01 C4000106 «+ LDL PRLST 
0005 01 4C20D003. + BSC L #452 
0007 01 650001ED Lox Li 
0009 01 6D00010E STX_ LL 


PRINT FIRST LINE {(MES1) 


Print the line **EXECUTE SAMPLE PROGRAM®®. 


GET ADDRESS OF HES2 Change the print I/O area parameter to point to the 
Y ET UP 1/0 AREA PARAMETER | word count of the next line to be printed. 
PRINT OUTPUT HEADINGS P if 
Print the second line: NAME,AB,18, etc. 
Assure that the word count preceding the card input 
buffer is 80. This is not necessary for the first card to 
be read, but is necessary for the reading of all ensuing 


cards since a 40 will be stored at COBUF before 
printing a data card. 


Read a data card into CDBUF. 


0008 30 17655805 
O000 1 0106 

OOCE 01 C400uU106 
0010 01 4C20U00E 
0012 0 615yu READ LOX 1 80 
0013 01 60000176 
REAO A OATA CARD 
0015 30 03059115 + 
0017 1 Ol6v + 
0018 01 €4000160 + 
001A 01 4C€200018 + 


L 


CDLST 


Check the card just read for an asterisk in column 1 


001C 01 C4000177 + c - 3 
OO1E 0 F003 + EOR A0001 {* = /4220 in IBM card code) and branch to END if 
OOLF 01 4C1s0216 + BSC L_ ENO,+- an asterisk is found. 

0021 0 7001 + MDX 41 

0022 0 422u +A0001 DC 14220 


0023 01 6500018F WKBUF and WKBUF+1 contain an iBM card code 


0025 01 660001C9 + {Hollerith) plus and zero rexpectively. The four 
0027 9 6304 + a LOX 34 columns {25 through 28) for at-bats are moved into 
+AA0) 1o 2 
Bosca oes : Tow aie the four-word buffer following WKBUF, 
002A 0 7101 + MDX 11 
0028 0 7201 + MDx 21 Converts the number of at-bats to a 16-bit binary vaiue 
Boze ° Leta : me 3 aioe and stores the result into location ATBAT. (See the 
1800 MPX Subroutine Library manual, Order Number 
002E 30 04902255 + TALL DCBIN GC26-3724,for further information on DCBIN.) 
0030 1 O1C7 + oc WKBUF 
0031 1 o1co + oc ATBAT 
0032 01 650u0194 ~< Lox Li CC30 
0034 01 660001C9 + LDX L2 WKBUF+2 
0036 0 6304 + Lox 34 
0037 @ C100 +AA003 LO 10 
0038 0 0200 + std 20 
0039 0 7101 + MDX 
OD3A OC 01 a MDX } Move and convert the four columns for singles (30 
003B 0 73FF + MDX 3 <1 through 33) and store the result into location SNGLS. 
003C 0 70FA + MOx AADO3 
0030 30 04002255 + R DCB 
003F 1 O1C7 + oc WKBUF 
- 0040 1 O1CE + oc SNGLS 
O 
0041 01 65000199 + tox ti ccs 
0043 01 66000109 + LOX L2 WKBUF+2 
0045 0 6304 + Lox 34 
0046 0 C100 +AA004 LO 10 
0047 0 0200 + sto 20 
- pra is aot tte 3 : Move and convert the four columns for doubles (35 
004A 0 73FF pt MOx 3-2 through 38} and store the result into location DBI_ES. 
004B 0 7OFA + MDX AROS 
[ OCBIN _WKBUF,OBLES] 
004C 30 04002255 + Cait OCBIN 
O04E 1 O1C7 + oc WKBUF 
OO4F 1 O1CF + oc OBLES 
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MOVE CC40,WKBUF+2,4 
+ 


0050 01 6500019E Ox Ci Ct4o 
0052 01 660001C9 + LOX L2 WKBUF+2 
0054 0 6304 + Lox 34 
0055 0 C100 +AA005 LO 10 
0056 0 0200 + sto 20 
0057 0 7101 + Mox 11 
0058 0 7201 + MOX 21 
0059 0 73FF + MOx 3 -1 
005A 0 7OFA + MOX AAQO5 
005B 30 04002255 + CALL OCBIN 
0050 1 01C7 + oc WKBUF 
OO5E 1 0100 + DC TRPLS 
O 
OOSF 01 650001A3 bx % 
0061 01 660001C9 LOX L2 WKBUF+2 
0063 0 6304 Lox 34 
0064 0 C100 +AA006 LD 10 
0065 0 0200 + sTO 20 
0066 0 7101 + MDX 11 
0067 0 7201 + MOX 21 
0068 0 73FF + MOX 3-1 
0069 0 70FA + HOX AA006 
006A 30 04002255 + ALL DCBIN 
Oo6c 1 O1C7 + oc WKBUF 
0060 1 0101 + DC HOMRS 
O06E O 61FC + DX 
OO6F 0 1010 + SLA 16 
0070 01 85000102 +B0007 A L1 SNGLS+4 
0072 01 04000102 + STO L HITS 
0074 0 7101 + MOxX 11 
0075 0 7OFA Booo7 
0076 01 C4000102. + 
0078 0 A005 + " 00008 
0079 01 ACOOO1CD) + D) L ATBAT 
007B 01 04000103 + STO L_ BTAVG 
0070 0 7001 + 


OO7E O O3E8 


OO7F 01 C40001CD 
0081 0 1800 

0082 0 1010 SLA 16 
0083 01 AC000101 
0085 01 04000105 


0087 01 C40001CF + 
00B9 0 A004 + 

008A 0 1090 + stT 16 
008B 01 D40D01CF + STO L OBLES 
008D 0 7001 + MDX $41 
OO8E 0 0002 +€0009 DC 


OOBF 01] C4000100 
0091 0 A004 
0092 0 1090 
0093 01 04000100 STO L_ TRPLS 
0095 0 7001 MDX s+] 
0096 0 0003 C0010 OC 3 


0097 01 C4000101 + LD L HOMRS 
0099 0 A004 + Ls coo1l 
009A 0 1090 + SLT 16 
009B 01 04000101 + STO L_ HOMRS 
0099 0 7001 + 


OO9E 0 0004 


OO9F O 61FC 
O0AO D 1010 


OOA1 01 85000102 

OOA3 01 04000102 + STO L_ HITS 
00A5 O 7101 + MOX 11 
OOA6 O TOFA + MDX BO012 


BA ATBAT HITS sSPUT 
LD LHI 


OOAT 01 C4000102 
OOA9 O AO00S 
OOAA 01 ACO001CD 
OOAC 01 b4000104 
OOAE O 7001 
OOAF O O3E8 


*DX 
bO013 DC 


OOBO 30 02255103 
0oB2 1 0103 + oc BTAVG 
0083 1 O1C7 


00B4 01 650001C9 + 

00B6 01 660001A8 + LOx L2 CC50 
OOBB O 6304 + LOx 34 
00B9 0 C100 +AA014 LD 106 
OOBA 6 0200 + sta 20 
00BB O 7101 + MOX 11 
ooec Oo 7201 + MDX 21 
008D 0 73FF + MDX 3-1 
OOBE 0 TOFA + MDX 

OOBF 30 062255103 + CALL BINDC 
00cl 1 0O1D4 + oc SPCT 
ooOC2 1 O1C? + oC WKBUF 
00C3 01 650001C9 + LOX Li WKBUF+2 
O00C5 01 660001 AD + LOx L2 CC55 
OOC7 0 6304 + Lox 34 
oocB Oo C100 +AA015 LO 196 
o0cg 0 D200 + sTo 20 
OOCA O 7101 + MDX 11 
oocB O 7201 + MDX 21 
OOCC O T3FF + MDX 3-1 
0OCD O TDFA + MDX AAO15 


42 1130/1800 Macro Assembler Programming 


Move and convert the four columns for triples {40 
through 43) and store the result into location TRPLS. 


Move and convert the four columns for homers (45 
through 48) and store the result into location HOMRS. 


Compute SNGLE+DBLS+T RPLS+HOMRS and store 
ithe result into location HITS. 


ompute the batting average and store the result into 
location BTAVG. 


ompute the home-run ratio and store the result 
into location RATIO, 


In preparing for the slugging percentage calculation, 
multiply DBLES by 2 and store the result in location 
DBLES. 


Multiply TRPLS by 3 and store the result in TRPLS. 


Multiply HOMRS by 4 and store the result in HOMRS. 


Tompute SNGLS+DBLES+T RPLS+HOMRS and store 
‘the result into location HITS. 


[Compute the slugging percentage and store the result 
into location SPCT. 


onvert the 16-bit binary value for BTAVG (batting 
average) to its IBM card-coded equivalent. Store the 
6-word result into location WKBUF. (See 1800 MPX 


ISubroutine Library manual, Order Number GC26-3724). 


Move 4 words beginning at WKBUF+2 to words 50-53 
of the card buffer. This puts the batting average into 

the ecard buffer which wil! soon be converted to 1443 

code and printed. 


Convert and move the stugging percentage to columns 
55-58 of the card buffer. 


0137 
0136 
0134 
0138 
013C 
O13E 
013F 
0140 
0141 
0142 
0143 
0144 
0145 
0146 


0146 
0147 
0149 
Q14A 
O14B 
0140 
O14E 
O1L4F 
0150 
0151 
0152 
0153 
0154 
0155 


0155 
0157 
0158 
0159 
O15A 
015B 
015C 
0150 


O1SE 
0160 
0162 
0163 


0164 
0166 
0167 
0169 
016B 


0160 
O1GE 
O16F 
D173 
0174 
0175 
D176 
O177 


0177 
0178 
0180 
0185 
O1BA 
O18F 
0194 
0199 
O19E 
O1A3 
O1AB 
O1AD 
0182 
O167 
O1LBC 
o1cl 
oc? 
01ca 
o1c? 
01CD 
O1CE 
O1CF 
o1d0 
01D1 
o1D2 
0103 
0104 
O1D5 


0106 
0107 
0108 
010C 
0100 
O1DE 


010F 
01£0 
O1ED, 


O1ED 
DILEE 
0205 
o200 


= 


eooocoo9efooeo 


= 


ew 


by eoeco0°oco00c9o00°0 


eooo COOOrFR rr ew 
a 


co 


“OO oo eoo00o00009o 


o 


6101 
660001 AD 
c200 
Foos 
4C200146 
Co06 
0200 
7201 
TIFF 
TOF? 
7002 
2000 
oooo 


6103 
66000182 
c200 
Foos 
4C200155 
co06 
0200 
7201 
TLFF 
TOF? 
7002 
2000 
0000 


08593509 
O15Cc 
0177 
0177 
015D 
7002 
0001 
0050 


65000176 
600001DE 
6128 
6912 


17655805 
01b6 

C40D01D6 
4C200167 
4C000012 


oo0o 
0000 
0004 
0000 
1000 
0176 
6050 
oos0 


Ao0OO 
2000 
0004 
0000 
0000 
Dooo 
0000 
OD00 
OD00 
opoo 
oooo 
DooO 


oopo 
Dooo 
0004 
0000 
2100 
O1DF 


ooob 
OOlA 
0000 


OO1F 
DO2F 
OOOF 
0000 


+ 

+ 

+ 

+ 

+ BSC L 0002342 . : . 
+ Lo coo23 Suppress the first character in the slugging percentage 
+ sta 20 field if it is a zero. 

+ MOX 21 

+ MDX 1-1 

+ MOx A0023 

+ MOX 00023 

+B0023 DC 72000 

+C0023 OC 0 

#00023 EQu 


+ LOX 

+ LOX L2 Cc60 
+A0024 LD 20 

+ EOR B0024 
+ 

+ io. . copes . Suppress the first character in the home-run ratio field. 
+ sto 20 

+ mOx 21 

+ MDX 1-1 

+ MDX A0024 
+ MDX 00024 
#80024 OC 42000 
+#C0024 DC 0 
+00024 EQU 


+ 
+ 
+ onvert the 80-word buffer COBUF to 1443 printer 
+ oc CDBUF+1 code. 
+ oc 4002541 
+ Mox #42 
#40025 DC 1 
+ oc 80 
LOx Ll COBUF GET ADORESS OF CDBUF Set the print 1/O area parameter to point to COBUF 
aay et papoo ae ie cone Ppa aa which is from where the next fine will be printed. 
x = 
STx__1_CDBUF STORE PRINT WORD COUNT Also set CDBUF to 40 (print word count). 
PRINT DATA 
+ CALL PRNTN 
+ oc PRLST Print a line of data. 
+ LDL PRLST 
+ BSC L #-4,Z 


BSC _L_ READ BR TO PROCESS NEXT Cann = aranich to process next card. 
COLST LLIST 1000, CORUF,SO]|GENERATE CARD 1/0 LIST 
FCDLST DC 0 


+ oc 0 

3 fee Ps Generate an I/O list designed to read a card. Also, 
+ oc 71000 create a word count and an area into which the card 
+ oc COBUF may be read. 

+COBUF DC 80 

+ BSS 80 


GENERAL CARD EQUATES 


CDBUF+1 

+CC5_— EQU CpBUFS5 

+CC10 QU COBUF+10 
+CC15 EQU CDBUF#15 
+CC20 EQU CDBUF+20 
+CC25 QU COBUF+25 
+CC30 E0U COBUF+30 

+€C35 QU CDBUF+35 Generate a list of equates designed for data card 
+CC40 EQU CDBUF+40 handling. 
+CC45 QU CDBUF +45 
+CC50 EQU CDBUF+5D 
+CC55 QU COBUF+5S 

+CC60 EU CDBUF+60 
+Cce5 EOU CDBUF +65 
+CC70 EQU CDBUF+70 
+CC75 EOU CDBUF+75 

WKBUF OC 74000 = 


Word area for DCBIN and BINDC manipulations. 


oc 72000 = 
BSS 4 WORK AREA FOR DCBIN SUBR 

ATBAT OC eae NUMBER OF AT-BATS 

SNGLS DC a-8 NUMBER OF SINGLES 

DBLES oC e-8 NUMBER OF DOUBLES 

TRPLS OC a8 NUMBER OF TRIPLES 

HOMRS OC a-8 NUMBER OF HOME RUNS 

HITS OC ane NUMBER OF HITS General work area. 
BTAVG 0C a4 BATTING AVERAGE 

SPCT OC aoe SLUGGING PERCENTAGE 


RATIO DC a-% HOME RUN RATIO 
OO,MES1»,PROOO PRINT 1/0 LIST 


Generate an 1/0 list for printing which contains the 


+PRLST OC 0 : 

+ oc 0 desired control parameter and an area parameter 

+ BSS 4 pointing to the first printed line. Place a label on the 
+ oc o area parameter word as it will be changed during 

+ oc 72100 


execution. 
+PROOO DC MES) 


ME ¥4SG1 *SEXECUTE SAMPLE PROGRAM*S'E}, 2} 

+MES1 DC AZOZ26E-AYO25 

+AY026 DOMES 1 **EXECUTE SAMPLE PROGRAM*9‘°E 

+AZ026 BES 9 

MES2 MSG2 X {NAME?21SA843S1B* 3S2B43S3B*3SHR* 
*2SBAVG* SSPCT *SHRRIE 


Generate the word count and message of the first line 
to be Printed. 


+HES2 DC AL027-AYO27 Generate the word count and message of the second 
+AYO27 DMES 1 NAME?215AB*3S1B'3S2B* 3S3B* 3SHR! line to be printed. 

+ DMES 1 *2SBAVG*SSPCT*SHRRTE 

+AZ027 BES 0 
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43 


ay 


30 02255103 


O1D5 
01C7 


01 650001C9 
01 66000182 


S©o°2°SC0SCoCcCHoocCcOO cececocecececc 


ee00eo0C Oc OoOo 


‘ea 


feet 


ecr0ccg00c9C00000 eececceoCceoeocoO 


ecrececceceoc0o0c 9 


ie 


nai 


po 


at 


7 


a. 


pt 


ff 


6304 
C100 
0200 
7101 
7201 
T3FF 
TOFA 


6103 


1 660001 8F 


C200 
Foos 


2 4C2000EC 


C006 
0200 
7201 
TIFF 
TOF? 
7002 
2000 
0000 


6103 
66000194 
c200 
Foos 
4C2000FB 
C006 
0200 
7201 
TIFF 
TOFT 
7002 
2000 
0000 


6103 
66000199 
C200 
Foos 
4C20010A 
C006 
02b0 
7201 
TIFF 
TOF? 
7002 
2000 
0000 


6103 
6600019E 
c200 
Foo 
4€200119 
C006 
0200 
7201 
T1FF 
TOF? 
7002 
2000 
0000 


6103 
66000143 
C200 
F008 
4C200128 
C006 
D200 
7201 
TIFF 
70F7 
7002 
2000 
0000 


6101 
660001 AB 
c200 
FOOB 
4C€200137 
C006 
0200 
7201 
TIFF 
TOFT 
7002 
2000 
0000 
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BINOC RATIO, WKAUF 


+ CALL RINDC 

+ be RATIO 
+ oc WKBUF 

+ LOx LI WKBUF+2 
+ LUX L2 CC60 

+ Lox 34 
+AA016 LD 10 

+ sToO 20 

+ MDX LAL 

+ MDX 21 

+ MDX =3 -1 =| 
+ MDX AAQ16 
[_SPRSS 72000, 0.0253, 
+ LDX 13 

+ LOx L2 CC25 
+A0017 LO 20 

+ EDR BOO17 

+ BSC L 00017,2 
+ LO coo17 

+ STO 20 

+ MDX 21 

+ MDX 1-1 

+ MOK AOOL? 

+ MOX DOO1? 
+BOO17 OC 42000 
+C0017 OC 0 
+D0017 EQu = _!| 
[_SPRSS 7 2000,0,630,3 
+ LDXx 13 

+ LOx &2 CC30 
+A0018 LO 20 

+ EOR Boo18 

© 8SC L DO0018,2 
+ LD cools 

+ sto 20 

+ MDX 21 

+ MOxX 1-1 

+ MDX 40018 

+ MOX 00018 
+B0018 OC 42000 
+C0018 OC oO 
+00018 EQu * 

+ 

+ 

+40019 LD 

+ EOR BOO19 

+ BSC L 00019,2 
+ LD co019 

+ sto 20 

+ MDX 21 

+ MOX 1-1 

+ MOX A0019 

+ MOX 00019 
+B0019 OC 42000 
+€0019 DC te) 
+D0019 EQU = 


+ LDx 
+ LOx 
+A0020 LD 


+ 


MDX 
+BOO020 OC 
+C0020 OC 
+bD0020 EQU 


A0D21 LO 
EOR 
BSC 
LO 
sto 
MOX 
MOX 
MDX 
+ MOX 
+B0021 OC 
+€0021 OC 
+D0021 EQu 


teehee eee ee 


Lox 
LOX 
AOO22 LD 
EOR 
8SC 
LO 
STO 
MDX 
MOX 
MOX 
MDX 
+BO022 OC 
+€0022 DC 
+D0022 EQU 


+e teehee atet t 


SPRSS 


L2 


NEN 


cc40 


30021 
00021,2 
coo21 

ia) 


BOO22 


co022 
iy) 


Convert and move the home-run ratio to columns 
60-63 of the card buffer. 


Suppress leading zeros to facilitate an easy-to-read 
printout by replacing all leading zeros {/2000 in card 
code) with blanks (0 in card code}. Do this for the 
at-bat field. 


Suppress leading zeros in the singles field. 


‘Suppress leading zeros in the doubles field. 


Suppress leading zeros in the triples field. 


‘Suppress leading zeros in the home-runs fieid. 


uppress the first character in the batting average field 
since batting averages are always written with 3 digits . 
{The first character will always be zero.) 


MSGI T#eEND OF JOB*SS'E)y 1 ; 
020P 0 0008 +HES3 = OC AL0ZB-AYO78 Generate the word count and message of the last line 
O20E 0010 +AYO28 OMES 1 *#*END OF JOR##4°E to be printed. 

0216 0000 +AZ2028 BES oO cas ieseyesecle Wes 

0216 01 65000200 [CENO LOX “Li MES3] s P 

0218 01 6D00010E STx L} PROOO SET UP I1/G AREA PARAMETER Change the print 1/O area parameter to point to the 
PRINT PRLST PRINT END OF JOB MESSAGE word count of the next line to be printed. 

021A 30 17655805 + CALL PRNTN 

o21C 1 0106 + oc PRLST : 

021D 01 C40001D6 + Lo L- PRLST Print the last line. 

O21F 01 4C2u0210 + BSC L #-4y5Z 


Terminate execution. 


0221 30 059C98CO CALL EXIT END EXECUTION 

0224 0000 ENO START ENO OF ASSEMBLY 
= 000 ERROR(S) AND 000 WARNING{S) IN ABOVE ASSEMBLY. 

SAMPL 


DMP FUNCTION COMPLETED 
7# XEQ SAMPL L O00 JAN OO 00.387 HRS 
®CCEND 


MPX, BUILD SAMPL 


CORE LOAD MAP 
TYPE NAME ARG1 ARG2 


*COW TABLE 8002 0012 
=F 10 TABLE 8014 OO1E 
=CNT TABLE 8032 0004 
MAIN SAMPL 8036 

CLNT SAMPL 8034 

CALL CARDN 825A 

CALL DCBIN 83E4 

CALL BINDC 8446 

CALL HOLPR 849A 

CALL PRT a570 

CORE a5BC  =7A44 
MPX, SAMPL LD XO 


7/7 XEQ SAMPL 


=CCENO 

TOM BAIRO 0642 0048 0003 0009 0026 
Eb BATTLES 0132 0027 0017 ON00 0002 
MAMIE BEARD 0614 0113 0006 9007 0004 
AL BERGLUND 0599 0173 0021 0003 0009 
EU CAMPBELL 0032 0011 0000 0001 0000 
Jim CROSSLEY 0535 0156 0009 0000 0002 
KEVE GABBERT 0587 0169 0003 0001 0010 
STEVE GRAHAM 0602 0183 0011 0003 0017 
MORRIS GROVE 0649 0233 0025 9001 0032 
DUN HADERLE 0492 0138 0006 0002 0007 : 
BURT HANNAY 0545 0176 0007 0002 0005 These are the data cards that Mr. Jones was given. 
WILLIE HATHORN 0584 0178 0008 0007 0009 
BILL HO 0614 0111 0013 9900 0000 
RUN HOLMES 0476 0138 0008 0000 0014 
MILT KHOOBYARIAN 0623 0178 0012 0004 0006 
GENE LESTER 0369 0003 0001 0000 0000 
MARILYN MARPLES 0062 0017 0004 0000 0001 
BOB MAY 0542 0155 0006 0001 0002 
TOM PIERCE 0207 0054 0002 0001 poco 
RALPH PIPITONE 0613 0169 0011 0004 0003 
MARILYN TAGHON 0612 0193 0009 0005 0006 
ROBERT TARBUTTON 0575 0169 00N2 0000 0012 


*END OF DATA CARDS 
=SEXECUTE SAMPLE PROGRAM** 


NAME AB 18 28 38 HR BAVG SPCT HRR 

TOM BAIRO 642 48 3 9 26 133 «288 24 
ED BATTLES 132 27 17 oO 2 348 522 66 
MAMIE BEARD 614 113 6 7 * 211 263 153 
AL BERGLUND 599 173 21 3 9 343 434 66 
ED CAMPBELL 32 lt Qo 1 Q 375 437 ie) 
JIM CROSSLEY 535 156 9 ie} 2 312 340 267 
KEVE GABBERT 587 169 3 1 10 311 371 58 
STEVE GRAHAM 602 183 ll 3 17 355 468 35 
MORRIS GROVE 649 233 25 1 32 448 637 20 
DON HADERLE 492 138 6 2 7 310 373 70 
BURT HANNAY 545 176 7 2 5 348 396 109 
WILLIE HATHORN 584 178 8 7 9 345 429 64 
BILL HO 614 111 13 ie) 0 201 223 Oo 
RON HOLMES 476 138 8 oO 14 336 441 34 
MILT KHODBYARIAN 623 178 12 4 6 321 382 103 
GENE LESTER 369 3 1 oO Oo O10 013 i) 
MARILYN MARPLES 62 17 4 Oo 1 354 467 62 
BOB MAY 542 155 6 1 2 302 328 271 
TOM PIERCE 207 54 2 1 O 275 294 ie) 
RALPH PIPITUNE 613 169 11 4 3 305 350 204 
MARILYN TAGHON 612 193 9 5 & 348 408 102 
RO8ERT TARBUTTON 575 169 2 ie} 12 318 384 47 


s==ENO OF JUB*** 


From this example you should realize how the use of macros 
with meaningful names helped Mr. Jones and his fellow 
workers make efficient use of their system. Similarly, you 

Cc can design your macros and libraries to aid your programmers 
and others who must work with the programmers. 
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calling 
MUP 


field 
speci- 
fications 


The Macro Update Program 


The Macro Update Program (MUP) assists you in maintaining 
macro libraries. It performs the following functions: 


e Initializes disk space for macro libraries. 
e Adds macros to libraries. 


e Deletes macros from libraries and reclaims the space they 
occupied. 


e Joins macro libraries, physically or logically. 
e Renames macros. 


e Obtains a listing of the contents of macro libraries by 
macro name or by macro name and statement. 


e Inserts or deletes statement(s) within a macro. 


e Provides macro definition source statements on cards. 


To call the Macro Update Program, you must first load the 
Disk Utility Program (for DM2) or the Disk Management 
Program (for MPX) into main storage. After it has been 
loaded, you use an *MACRO UPDATE control statement to call 
MUP. Following this statement, you should use MUP control 
statements to indicate the functions you want to perform. 
The function field must begin in column one, and at least 
one blank is required to separate it from the operand field. 
If you leave the first column blank, the statement will be 
ignored. If you want to specify more than one operand, you 
must separate the operands by commas and leave no blanks 
within or between them. Any unused columns in MUP control 
statements are reserved for system use. With the exception 
of the NAME function (described later in this chapter), 
control statement continuation is not allowed in MUP. 


Note that once a Macro Update function has been started, it 
should not be aborted, because an incompleted modification 
may cause the library to be unusable. 


All special characters used in the Macro Update Program must 
conform to the character code summaries as listed in the 
1130 Assembler Language manual, Order Number GC26-5927, or 
the 1800 Assembler Language manual, Order Number GC26-5882. 


Initializing Disk Space 


reserve 


( ‘ space 


Before initializing disk space, you must reserve a data file 
to serve aS your macro library. This can be accomplished by 
means of an *DFILE statement or an *STOREDATA statement. 

For a detailed description of *DFILE and *STOREDATA, see the 
Programming and Operator's Guide (for DM2), Order Number 
GC26-3717, or the Programmer's Guide (for MPX), Order Number 
GC26-3720. 
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To initialize disk space for a macro library, you must use a 
BUILD statement. The library name in the BUILD statement 
must be the same as the one defined in the *DFILE or 
*STOREDATA statement. After you have named a library, you 
must use that library's name in all LIB, BUILD, JOIN, or 
CONCAT statements (described later) that refer to that 
library. You must initialize disk space before requesting 
the Macro Assembler or the Macro Update Program to operate 
on a specific library. The format of a BUILD statement is 
as follows: 


a Seen See ee 21-30 31-40 
2 [3 |4[5]6]7[s[ofol Te|3]4[5]el718[s]ol [21314 ]5 |e]? [8[9]o] 213 ]415[6]7[s]9]o| 1213) 


BUILD 
format 


LNAME is the name of the macro library that was reserved by 
the *DFILE or *STOREDATA statement (discussed above). LNAME 
is a 1-5 character name for the macro library. The 
apostrophes are delimiters and, as such, are required by MUP 
for the names of all macros and libraries. You can use 
alphabetic characters A-Z and the characters 0-9, #, 3, and 
$ within your library name. The digits 0-9 may not be used 
as the first character. A library name is considered a 
symbol, and therefore, it must conform to the rules for 
Symbols as stated in the Assembler Language manual, Order 
Number GC26~5927 (for the 1130) or Order Number GC26-5882 
(for the 1800). If LNAME applies to a previously 
initialized library containing macros, the function purges 
the library and reinitializes it. 


Specifying the Macro Library 


To specify the macro library to be operated on, you use the 
LIB statement. The format of a LIB statement is as follows: 


iis Cee Ds eee ee oe ee eee 
Lite [3|4[slel7isloloh [el3]415]6]7Is[9jol 2 [31415 ]6l7 Is{s {ol 12] [415 [7 [els ]ol 213) 


Lig LNAME ‘ 


format 


LNAME (discussed above) is the name for the macro library. 


Joining Macro Libraries Physically 


If you want to physically join a macro library to the end of 
the library specified in the last BUILD or LIB statement, 
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use JOIN 


format 


contents 
unchanged 


notes 


you use a JOIN statement. For example, if you wanted to 
physically join LIB06 to LIBO5, you would use the following 
statements. 


lO. OO | elo S140 
He BESlel7elslol eis4Islel 7lelstol S14 1siel Is[9{o} 2 131415]6)1sI9 iol 1121514 
W418 LI 895" 


OLIN LIEGE’ 


3 


These statements cause the contents of LIB06 to be added 
(physically copied) to the end of the contents of LIBOS5. 
This does not change the contents of library LIBQ6. 


If the first library cannot accommodate the library being 
joined to it, the JOIN operation is suppressed. Neither 
library is changed and processing continues with the next 
LIB or BUILD statement. If you specify a new library name 
in a BUILD and then join an existing library to it, you 
physically copy the existing library. 


Joining Macro Libraries Logically 


use CONCAT 


purpose 


format 


multiple 
concaten- 
ation 


If you want to logically join a macro library to the library 
specified in the last BUILD or LIB statement, you use a 
CONCAT statement. This statement allows you to maintain 
individual libraries, and then unite them for assembly 
purposes without using additional disk space. 


For example, if you wanted to logically join LIB22 to LIB15, 
you would use the following statements. 


Ce fs eeO ee BIRO sia 
Hz Beblelrssol 2srislel7Ielslol 1s1415|6]7Te[slol We (s141s16)7Ts1s101 121314 
W78  , Ll815" 


CONCAT \LIB22" 


3 


These statements cause both libraries to be available for 
assembly purposes when LIB1i5 is referenced by the Macro 
Assembler. However, in any Macro Update Program operation, 
only the library named on the last LIB or BUILD statement is 
operated upon. 


It is possible to concatenate a multiplicity of libraries, 


so that several libraries may be available to the Macro 
Assembler even though the assembly references only one. You 


The Macro Update Program 49 


disconnect 


format 


would perform this multiple concatenation by concatenating 
library B to library A, library C to B, library D toc, am, 
library E to D, and so on until all the libraries that you 

wanted were linked together. You can concatenate only one 

library to any other library, but you can concatenate up to 

a total of 16 libraries, making a total of up to 17 

available for assembly purposes. If the Macro Assembler 

does not find a macro and has searched through 17 libraries, 

the statement containing the name of the macro will be 

flagged as an op code violation and the assembly will 

continue. 


If you want to disconnnect a library that has been 
concatenated to another library, you can use the following 
statements. 


| __i-io_=—Fss[T = i-20 TT -30 Ss] ~S—i-40—~*d 
2 ]slalslelrielolol 213 415]6]7Tels fol 213141516)? 181910) T21s1415|6]7 eS ]O| 213] 
W418 ‘21815’ 


ICONCAT ‘9’ 


3 


The CONCAT statement would cause the library (LIB22) that 
has been concatenated to library LIB15 to be disconnected. 
The physical contents of the libraries remain unchanged. 


Updating a Macro in a Library 


use 
UPDATE 


If you want to alter a macro that has been stored in the 
library specified in the last BUILD or LIB statement, you 
specify that macro with the UPDATE function. An example of 
specifying the macro TAXES might be as follows. 


___I-i0_ Ss] i-20 dT -30~—S—C«dYt:C“‘CSZI-GOO~*W 
We Tsla[slelrislstol 23141516] Te]S]ol 1231415161? Ie 1910l 213] 4]5]6]7 [S91 21314 
{418 , ‘Costs’ 


2UPOATE ‘TAXES’ 


3 


The UPDATE statement is normally followed by an INSERT or am 
DELETE statement. Descriptions of these two statements are 

discussed under “Inserting Statements in a Macro" and 

“Deleting Statements From a Macro." 
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Renaming a Macro in a Library 


use 
RENAME 


format 


If you want to rename a macro in a library, you use the 
RENAME statement. Once you have renamed a macro, the 
original name is lost, and the macro can be referenced only 
by its new name. The format for the RENAME statement is as 
follows: 


This statement would cause the macro BOLTS to be renamed 
RIVET. BOLTS represents the name of the current macro; it 
must be enclosed in apostrophes and separated from the new 
name by a comma. RIVET represents the new name for the 
macro. The macro must now be referenced by this new name. 
BOLTS can now be used as a name for another macro. The 
RENAME statement may be followed by INSERT or DELETE 
statements. 


Defining a Macro During a Macro Update Run 


NAME 
format 


You can define a macro during a macro update run by using 
essentially the same method you use during an assembly. The 
differences are that you don't use MAC or SMAC and MEND 
statements, and you don't use a definition prototype 
statement. Instead, you use a NAME statement to name the 
parameters to be used in a subsequent definition and an ADD 
statement to name the macro (discussed below). The format 
of the NAME statement is as follows: 


ae See = p_2i-39 Ss | I-40 
1 12]3}415}6]71819}0] | [2/314/5]6]7 s[9}o} | J2]3/4]5{6]7 [s[s[o} J2]3]4[5]el7{s[s{o} | j2[3]4 


P1 is the symbol for parameter 1, P2 is the symbol for 
parameter 2, and so on. 


Note that parameter 1 is the parameter used in the label 
field of the macro call. Parameter 2 would be the first 
parameter in the operand field. If you need more than one 
record for all your parameters (limited to 20 possible), use 
as many NAME records as needed immediately following the 
first, and continue the parameters on these records. In 
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then ADD 
statement 


format 


such a case, a comma must not follow the last parameter on 


each record. ~ 


If your NAME statement does not have sufficient parameter 
names for the parameters in the macro being processed, one 
of the following will occur. 


* On input, the additional parameters will be assumed to be 
standard Macro Assembler variables instead of macro 
parameters. 


e On output, the operation will be aborted and a D1ii7 error 
message printed. This also occurs if a parameter that is 
used in the format or tag fields is given a name that is 
greater than one character. 


e On listing, extra parameters will be replaced by // N 
where N is the number (1-20) of the parameter. A D117 
error message will be printed. Note that the parameter 
number may be truncated if it exceeds the field length. 


The names specified in the NAME statement are used in all 
subsequent operations until the next LIB or BUILD statement 
is encountered or another NAME statement is read. 


ADD STATEMENT 


After the NAME statement, you use the ADD statement. The 
ADD statement adds the macro to the library specified in the 
last LIB or BUILD. The ADD statement in conjunction with 
the NAME statement performs the same function as the 
definition prototype statement of the Macro Assembler 
definition. The format of the ADD statement is as follows: 


PIT ti-2g_ CT sCi-3Q)_S | 5-40 
fe [3lalsielrielolof Telsla{SlelrTelsfol  Je{3]4]5]e]? Te[sfof 213]4]S]6[7]s]9}0} | j2)314 


This statement causes the macro PARTS to be added to the end 
of the macro library specified in the last BUILD or LIB 
statement. 


Following the ADD statement, you place the 

assembler-language source statements that you want to 

include in the definition. The macro being thus defined by am 
the ADD function is terminated by the occurrence of a MUP } 
control statement. An example of how to define a macro 

during a macro update run is as follows: 
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jack of 
room 


POs | ee. 2-30 | S140 
2B Sslelzislslol eisi4isiel7Teisiol 2131415 |e]? 18910] 1213] 415]6]7]8[s]oh [2/514) 


1 RMUACRO UPDATE call to Macro Update Program 
\tt,8 | QUALL' specifies library 
WAME LABLE.T1,72 specifies parameters (described above) 
3 , , 
4 ADD \ TESTS ’ adds and names macro 
: LD Tt 
‘ STO T 2 
1 ENDUP terminates MUP run 


8 


If there is not sufficient space in the library to 
accommodate the macro you want to store, the macro is not 
added. Processing continues with the next LIB or BUILD 
statement; the library is not changed by this occurrence. 


If you define another macro within a macro definition, then 
the MAC or SMAC and MEND statements of the nested macro are 
included in the definition of the outer macro. Thus, if a 
macro is defined with an ADD statement and its source 
Statements include a MAC or SMAC and MEND statement, then 
every time it is called in an assembly, a macro definition 
is generated. 


The definition prototype statement cannot be used in a macro 
defined by the ADD function except in conjunction with a MAC 
or SMAC statement. If one is present, no error is 
diagnosed. Note also that macro source statements stored 
during a MUP run are not diagnosed for errors. 


Deleting a Macro From a Library 


use PURGE 


format 


If you want to delete a macro from the library named in the 
last LIB or BUILD statement, you use a PURGE statement. 

This function deletes the macro that is specified, and 
automatically reclaims the space it occupied. The format of 
a PURGE statement is as follows: 


LOT tim2g_ dT i~30—— CT I-40! 
| 11213141516) 718) 9}0] | j2)314/5]6]7}8/9]o} | f2]3]4]5] 6]? [s{s[o} | fe]3{4]s|e]?]s[9}o} | J213}4 
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This Statement causes the macro WAGES to be deleted from the 
library named in the last LIB or BUILD statement and 
reclaims the space WAGES occupied. 


The Macro Update Program PURGE statement should not be 
confused with the Macro Assembler PURG statement. The Macro 
Assembler PURG statement does not automatically reclaim the 
space occupied by the macro named in that statement. 

PURGE Instead, the space is reclaimed by running the Macro Update 

vs. PURG Program. Any macro update run affecting a particular 
library will reclaim the space occupied by a macro deleted 
from that library with the Macro Assembler PURG statement. 
The PURG and PURGE statements cause operations to occur in 
regard to the specific library named in the last LIB, BUILD, 
or *MACLIB statement. They do not affect any other library. 


Punching Source Statements 


If you want to punch the source statements of a specified 
macro definition, you can use the OUTPUT statement. This 

use OUTPUT statement must have been preceded by a NAME statement. 
Blank cards must be available for punching as soon as the 
OUTPUT statement is read. 


Care should be taken in preparing the NAME statement since 
the OUTPUT function will be aborted if a parameter is 
defined incorrectly or is left undefined (see NAME statement 
described previously). The definition to be punched must be 
part of the library specified in the last LIB or BUILD 
statement. The format of the OUTPUT statement is as 
follows: 


format 


SALES is the name of the macro definition to be punched. 

This statement also causes an ADD 'SALES' statement to be 
punched prior to the source statement to facilitate loading 

of the definition at a later time. The source statements will 
contain an identification (first three characters of the macro 
name) and a sequence number in columns 73-80. 


Inserting a Statement in a Macro 


If you want to insert additional macro definition source 
statements into a macro, you can use the INSERT statement. 
This statement must be preceded by a RENAME or UPDATE 

Use INSERT. statement and a NAME statement (discussed previously) that 
specifies the macro to be modified and its parameters, and 
it must be followed by the source statements to be inserted. 
The format of an INSERT statement is as follows: 
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SJ 


format 


notes 


[es Or Sa) ee 21-30 
W2sislelrisislor es4I5l6l7 {stot 1231415 ]el? Is]s}ol 'f213[4[5]6l?[s]9{o} | {2/3} 


NNNNN is a decimal integer (maximum of 32767) up to five 
digits long. It references a macro definition source 
statement sequence number. The source statements are 
inserted after NNNNN; so, if you want the statements 
inserted before any other statements in that macro, you must 
specify NNNNN as zero. 


Whenever MUP or the Macro Assembler prints macro definition 
source statements, five-digit decimal sequence numbers are 
printed to the left of each statement. These sequence 
numbers are referenced by INSERT and DELETE statements. Any 
statements inserted into a library by the ADD, INSERT, or 
DELETE (described in the next section) function are flagged 
with an X when the definition is printed. Macro definition 
source statements are automatically sequenced when the ADD 
function is used, and resequenced when the INSERT or DELETE 
functions are used. 


You can insert only as many statements as the library has 
room for. In other words, if you have 25 statements to add 
to a macro, and there is enough space to accommodate only 15 
of those statements, those fifteen statements will be added. 
A D103 LIBRARY OVERFLOW message will be printed; processing 
will continue with the next LIB or BUILD statement. If you 
want to include the ten statements left out of your macro 
after regaining enough space to accommodate them, you will 
have to alter your INSERT control statement because of the 
resequencing of the statements in the macro library that has 
occurred. 


Deleting a Statement From a Macro 


format 


If you want to delete one or more statements from a macro, 
you can use the DELETE statement. The DELETE statement must 
be preceded by a RENAME or UPDATE statement that specifies 
the macro to be altered and a NAME statement (discussed 
previously) that specifies parameter names used for 
alteration. The format of a DELETE statement is as follows: 
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MMMMM is the sequence number of the first source statement 
to be deleted and NNNNN is the sequence number of the last 
source statement to be deleted. This statement would cause 
the statements from MMMMM through NNNNN inclusive to be 
deleted. If you want to delete a single source statement, 
you can leave the comma and second parameter off or specify 
the first sequence number again. 


A DELETE statement may be followed by source statements to 
be inserted in place of the deleted statements. You do not 
need to use an INSERT statement to perform this function. 
You may insert more or fewer statements than you deleted. 
If you insert statement(s), you can insert only as many as 
the library has room for. The Macro Update Program will 
insert as many as will fit, print an error message, and 
continue processing with the next LIB or BUILD statement. 


Obtaining a Listing of Macro Libraries by Statements or Macros 


The SELECT control statement is used to control the Macro 
Update Program printed output and remark inclusion. The 
output is always printed on the list (principal) printer, 
and MUP control statements are always printed. You can also 
specify in a SELECT statement that remarks are to be 
included with any macro text statement being placed on disk. 
An example of the print format may be seen in the sample 
program that is at the end of this chapter. 


The format of the SELECT statement is as follows: 


no parameters--suppresses printing of macro headers and 
macro text. 


M--causes headers to be printed. 


P--causes text and headers to be printed. If you select 
this option, it should have been preceded by a NAME 
statement (discussed previously). On an OUTPUT operation 
with this option, the 1800 will not list the macro text. 
Note that if a LIB, BUILD, or ENDUP statement is 
encountered and no name statement is available, SELECT P 
will be reset and the text will not be printed. on the 
1800, if sense switch 2 is ON, printing will be suppressed. 


I--causes headers to be printed except during an ADD, INSERT, 
or DELETE operation, in which case, the macro headers and 
text are printed. If you do not specify a SELECT statement, 
I is assumed. 
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SELECT N 


On the 1800, if sense switch 2 is ON, printing will be 
suppressed. 


c--indicates that remarks are to be included with any macro 
text statement being placed on disk. 


N--indicates that both of the following conditions are true 
(see also the section following): 


e You want to update a nested definition. 


e The statement(s) inserted uses the automatic name 
generation feature. 


You may use any combination of parameters in a SELECT 
statement; however, I will override M and P will override 
either I or M, or both. Each two consecutive parameters 
must be separated by a comma, with no embedded blanks. If 
you use more than one SELECT statement, the latest is 
assumed, and the prior SELECT statements are overridden. 


SPECIAL REQUIREMENTS ON THE USE OF AUTOMATIC NAME GENERATION 
IN NESTED DEFINITIONS 


When automatic name generation is used with nested 
definitions, the indicators for automatic name generation 
(leading and/or trailing apostrophes) must be suppressed 
until the call (expansion) of the outer macro occurs. 
Otherwise, the automatic name generation feature will not 
function properly. To suppress this feature, the statements 
in a nested definition must be stored as data. In a nested 
definition, the MAC statement(s) of the inner nested 
definitions indicates that the Macro Update Program (on an 
ADD statement) or the Macro Assembler (on an SMAC statement) 
should store the statements between the MAC and its 
associated MEND. 


When inserting statements that use automatic name generation 
in a nested definition, you must precede the INSERT or 
DELETE statements with a SELECT statement that includes N as 
one of its parameters. This should be done to indicate the 
Macro Update Program should store these inserted statements 
as data. The SELECT N option should be followed by another 
SELECT option (without N as a parameter) when all inserts to 
the nested definition are completed. If suppressing the 
automatic name generation feature by SELECT N is not done 
properly, the consequences will not be observed until an 
assembly with the call (expansion) of the nested macro is 
attempted. 
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Consider the following example: 


LIB ‘LIBO1* 
SELECT P 
NAME LABEL,A,B,C 


14BO 0005 MACO9 
00001 LABEL LD L oA 


00002 STO L B 

00003 MAC 

00004 MOVE CNT, FROM, TO 
00005 LDX -CNT 

00006 A’ LD L1 FROM+CNT 
00007 STO L1 TO+CNT 
00008 MDX 11 

00009 MDX A‘ 

00010 MEND 

00011 BSC L Cc 


00012 **MACRO END#*# 
14B0 0049 *#*LIBRARY END#* 
0000 
ENDUP 
UPDATE COMPLETED 


The macro MOVE is a nested definition and uses the automatic 
name generation feature. Hence, a SELECT N statement must 
precede any updates (statements for insertion into the macro 
MOVE) that use the automatic name generation feature. 
Failure to do so will result in the symbol actually being 
expanded at this time, which is not desired. 


Note that any updates using automatic name generation 
outside the macro MOVE should not be preceded by a SELECT N 
statement, since the automatic name generation will be 
suppressed. In the above example, an insert that uses 
automatic name generation made between statement number 
00003 and statement number 00010 should be preceded by a 
SELECT N statement. An insert made elsewhere in the macro 
MOVE that does not use automatic name generation should not 
be preceded by a SELECT N. 


Designating Comments 


use a 
period 


A period in column one of any record designates that record 
as a MUP comment and it is printed on the list (principal) 
printer. If, however, an error has occurred, and MUP is 
ignoring all statements until the next LIB or BUILD 
statement, comments will also be ignored and not printed. 
Note also that MUP comment records are never included in 
your macro library. 


Terminating a Macro Update Run 


use ENDUP 


To terminate a Macro Update Program run properly, you must 
use an ENDUP statement. This statement must be the last MUP 
control statement used, or else none of the statements that 
follow it will be processed. You don't specify any 
parameters in an ENDUP statement; the format is as follows: 
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format 


10 eo 80-40 
Tes islelrisislol eisislelreSlol es 141sl6)7 1els1ol NeTs4Iste)Tso1ol 121314 
EN OUP. 


2 
3 


The UPDATE COMPLETED message (see the following sample 
program, note 9) indicates that the Macro Update run has 
been properly terminated. This does not imply that all the 
operations requested were successful. 


Sequencing MUP Control Statements 


The following table illustrates the required order of MUP 
control statements. Each x in the matrix indicates that the 
function at the top of the column must precede the statement 
to the left side of the x. MUP statements not included in 
this table have no precedence requirements. 


RENAME 
or 
UPDATE 


LIBRARY FUNCTIONS 
JOIN 
CONCAT 


MACRO FUNCTIONS 
UPDATE 
ADD 
PURGE 
RENAME 
OUTPUT 
STATEMENT FUNCTIONS 
INSERT 


PRINT FUNCTIONS 
ANY SELECT P 


Note that a new LIB or BUILD function removes the previous 
NAME statement and a new one must be used. On any function 
where you use a SELECT P option, you must have a NAME 
statement available to SELECT P or else the print or punch 
operation will not be as you wanted it. 


Making Efficient Use of the Macro Update Program 


The Macro Update Program searches sequentially through the 
library it is operating on for the macro specified in a 
RENAME, OUTPUT, UPDATE, or PURGE statement. It joins 
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request 
functions 
in order 


libraries and adds macros to the end of each library. 

Consequently, the printing may be voluminous while the Macro am 
Update Program is positioning for the requested function. : 
Therefore, to make the most efficient use of the program, 

you should request the macro functions in the order in which 

the macros appear in the library, and the JOIN and ADD 

functions after all other functions for that library have 

been performed. 


For example, suppose LIB01 contains four macros: MACi1, 
MAC2, MAC3, and MAC4&, respectively and you want to perform 
an OUTPUT function on MAC1 and MAC4&, a PURGE function on 
MAC2, a RENAME function on MAC3, and a JOIN function on 
LIBO2. The following statement sequence is the most 
efficient to perform these functions. 


f t-iOd — <s TtH-20 CC t-30 T8400 4) 
[2 T3yalslel7ielsiol [213 [4[5]6]7[s[9fo} [2 [3]4]5 fel? [e[so] | ]2]3/4/5]6]7{s[slof [23/4 
1628 ‘L7e801' 


JOUTPUT ' MACL' 
PURGE |’ MAC2 
RENAME ' MACS’, GET’ 
[OUTPUT ' MACE’ 
sVOTNM ‘'LIB02' 


1 ENOUP ~ 


The concatenate function does not cause library positioning, 
and thus, its position within a MUP run is not important. 


A Sample Macro Update Program 


The following sample program illustrates a sample Macro 
Update Program run. 
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f/f JOB x 00 JAN 00 00.012 HRS 
“f SAMPLE USAGE OF MACRO UPOATE PROGRAM {MUP} 
#7 OMP 00 JAN 00 00.012 HRS 


=MACRO UPOATE 


e BUILO A MACRO LIBRARY CALLED 'LIBOL* 

BUILD #LIAOLt 

» ADD A MACRD TO PLACE THE SPECIFIED INDEX REGISTER'S CONTENTS IN THE ACC 
e« CALLING FORMAT IS 

. LABEL NXACC x 

» WHERE *LABEL' IS ANY VALID LABEL AND *X* IS THE INDEX REGISTER WHOSE 

« CUNTENTS ARE TO BE PLACED IN THE ACCUMULATOR 

INAME LABEL 9X 

AO0O *NXACCT 


© 


14B0 0005 NXACC 


X,00001 LABEL STX xX +2 
(Af 00002 Lo a4] 
x 00003 MOX 41 
X 00004 oc a8 


. ADD A MACRD TO SPACE LISTING 1 LINE WHEN BLANK DP CDDE APPEARS 
(ooo ** MACRO END ## 


(4)1480 o01F 
VY ,00001 SPAC 1 
~ BUILO A MACRO LIBRARY CALLED *L1B02* 
‘ 00002 #* MACRO ENO ** 
1480 0029 ** LIBRARY ENO ¥* 


(@)ooo0 


. @x ADD A MACRO TO SPACE LISTING 1 LINE WHEN BLANK OP CODE APPEARS 
NAME 


(4)1481 0005 
oor! 
ADD A MACRO TO FILL CORE STORAGE WITHIN THE LIMITS SPECIFIED WITH THE 
WORD AT THE LDCATION SUPPLIEO USING INDEX REGISTER 1 


ADD ! . 


@puito '.1e02" 
: 


ADD # ‘ 


SPAC 1 


CALLING FORMAT IS 

LABEL FILL FROM,TO+WORD 
WHERE *FROM? IS THE STARTING ADDRESS» 'TO* ES THE ENDING ADDRESS, ANI 
t™WORO! IS THE ADDRESS OF THE FILL WORD. ‘FROM? MUST BE LESS THAN OR 


oe eto ene 


EQUAL TO *TD'. 


Goooo2 
@)NAME LABEL sFROM, TOsWORO 
AOD "FILL! 


asx MACRO ENO *# 


()1481 oooF FILL 


(@Xjo0001 LABEL STx 1 xR? 
(@)-tf 00002 Lo ap2! @) 
x 00003 s aDl? 
x 00004 STD #41 
x 00005 LOX Li ## 
x 00006 MOx 11 
X 00007 LDL WORD 
X 0000B LP! STO Li FROM-1 
x 00009 MDX 1-1 
X 00010 MDX LPI 
x 00011 Lox Li #-* 
x 00012 XR1  EQU #1 
x DDOL3 MOX B42 
X DDD14 ADI* OC FROM 
x 00015 AD2 OC To 


» BUILD A MACRO 


LIBRARY CALLED ‘'LIBO3! 
OD16 ** MACRO END #5 
14B1 0066 ** LIBRARY END #* 


(®)oo00 


e ADD A GENERAL CORE MOVE MACRO USING INDEX REGISTER 1 
« CALLING FORMAT IS 


@p_urvo +L1803! 


. LABEL MOVE FROM, TO¢COUNT 

» WHERE *FROM* IS THE SENDING FIELM STARTING ADDRESS>» 
« FIELD STARTING ADORESS, AND ‘COUNT? 
INAME LABEL FROM, TO COUNT 


ADD *MOVE® 
i497 0005 MOVE 
00001 LABEL LDX 


'TO* IS THE eevee) 


1S THE NUMBER OF WORDS TO MOVE. 


L1 COUNT 
© xhoo002 LO Ll FROM-1 
x 00003 STO Li TO-1 
x ODDD4 mOX 1-1 
X 00005 MDX 8-6 


‘ 
e« ADD A MACRO TO PLACE THE ACC CONTENTS IN THE ENDEX REGISTER SPECEFIEO 
« CALLING FORMAT IS 


. LABEL ACCNX Xx 
. WHERE *X* 1$ THE_JNDEX REGISTER TO BE LDADED WITH THE ACC CONTENTS. 
G)ooo0s #3 MACRO END 3# 
(NAME LABEL ¢X 


ADD 'ACCNX? 
()i487 0024 ACCNX 
00001 LABEL STO 
xhovoo2 Lox 


a4] 
LX #-% 


The library named in a BUILD statement 
must have been defined previously with 
an “DFILE control statement. 


The NAME statement is required and may 
specify parameter names to be used ina 
subsequent definition. 


**LIBRARY END** is printed each 
time the Macro Update Program en- 
counters the end of the library. The 
two numbers indicate (1) the logical 
drive number and sector address of the 
last sector of the library currently used, 
and (2) the relative address of the last 
word on that sector which is used. 


By inspecting these two words, you 
can determine how much of your 
library file has been filled. 


The name of the macro being operated 
upon is printed. The two numbers 
preceding the macro name indicate 
where on the disk the subject macro 

was built. Word one indicates the 
logical drive number and sector address 
of the definition and word two indicates 
the relative location of where that defi- 
nition begins on that sector. 


An X is printed with each statement 
that is added to a library or macro. 


Sequence numbers are printed when- 
ever a macro text is printed. 


**MACRO END*”* is printed whenever 
the Macro Update Program is through 
processing a definition. 


If the library being worked upon is 
concatenated to another library, this 
number indicates the logical drive 
number and sector address of the 
concatenated library. If no concatena- 
tion exists, this number is zero. 


The Macro Update Program prints the 
macro names it encounters when scan- 
ning through a library. The two numbers 
in front of the macro name indicate 
information as described in 


The library named in a LIB, JOIN, or 
CONCAT statement must have been 
defined previously with an *DFILE 
contro! statement and initialized with 
a BUILD statement. 


This message is printed when the Macro 
Update run has been completed. It 
does not imply successful completion; 
messages prior to this one may indicate 
error conditions. 
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. 
* 
. 
. 


(NAME LABEL. X,Y 


ADD A MACRO TO MOVE THE CONTENTS OF A SPECIFIED INDEX REGISTER TO 
ANOTHER SPECIFIED INDEX REGISTER 
CALLING FORMAT IS 

LABEL LOADX FROMX,TOX 
WHERE *FROMX* IS THE INDEX REGISTER WHNSE CONTENTS ARE MNVEN ITO THE 
INDEX REGISTER *TOX'. 
0003 7% MACRO END ## 


ADD *tLOADX® 


14B7 0034 LOADX 
(S)X 00001 LABEL STX x 41 


()Xfoo002 LOX LY a3 


PHYSICALLY JOIN LIBRARY ‘L1803' TO LIBRARY 'L1B01" 
(7)o0003 ** MACRO END = 
14B7 0044 #* LIBRARY END ** 


0000 
GiB *L1B01! ® 


Gow +L 1B03* 


. 


UPDATE *MOVE! 


Q@ame LaBeLsFROM, TO 


14B0 0005 NXACC 
i4BO OO1F 


OOO 


14B0 0029 MOVE 


@¥ 1480 C048 ACCNX 


14B0 0058 LOADX 


© 


OPDATE THE *MOVE* MACRO TO SAVE AND RESTORE INDEX REGISTER 1 


@hsso0 0068 ** LIBRARY END ** 


0000 

14B0 0005 NXACC 
(8) 1480 oo1F 
@)i480 0029 MOVE 
ss 


OUNT 


() 


DELETE 1 
@x 00001 LABEL STX 1 449 


@* 00002 LOX L} COUNT 
INSERT 5 
DeCo3 LD L1 FROM-1 


00004 STO Ll TO-1 
00005 MDX lo-i 
00006 MDX a-6 


G 00007 LOX LL es 


RENAME THE *#MOVEL.MACRO AS *MOVE1* 
0008 ** MACRO END **% 


RENAME *MOVE','MOVELS 


Oe ees 


ENDUP 


62 


UTPUT *MOVE1? 


(8)14B0 0053 ACCNX 
(9 3K14B0 0063 LOADX 
(31430 0073 ** LIBRARY END +* 


14BO OCO5 NXACC 


One OO1F 
% 


14B0 0029 MOVE 
ABOVE MACRO RENAMED AS 
14B0 0029 MOVER 
ONLY THE NAME 'MDVE}' CAN NOW BE USED TU REFERENCE THE MACRO 
FORMERLY NAMED ‘MOVE'. 


PUNCH THE MACRO NOW CALLEO 'MOVEI! 


14B0 0053 ACCNX 
14B0 0063 LOADX 


(3)1480 0073 =* LIBRARY END #* 


0000 


(9148p 0005 NxACcC 

(951430 oo1F 
(9)1480 0029 MOVEL 
(@7F1480 0053 ACCNX 
1480 0063 LDAOX 


Biss 0073 +** LIBRARY END ** 


(uroaTe comPLeTeD 
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The library named in a BUILD statement 
must have been defined previously with 
an *DFILE control statement. 


The NAME statement is required and may 


specify parameter names to be used in a 
subsequent definition. 


@) ** LIBRARY END** is printed each 
time the Macro Update Program en- 
counters the end of the library. The 
two numbers indicate (1) the logical 
drive number and sector address of the 
last sector of the library currently used, 
and (2) the relative address of the last 
word on that sector which is used. 


By inspecting these two words, you 
can determine how much of your 
sibrary file has been filled. 


@ The name of the macro being operated 
upon is printed. The two numbers 
preceding the macro name indicate 
where on the disk the subject macro 
was built. Word one indicates the 
logical drive number and sector address 
of the definition and word two indicates 
the relative location of where that defi- 
nition begins on that sector. 


An X is printed with each statement 
that is added to a library or macro. 


Sequence numbers are printed when- 
ever a macro text is printed. 


@) **MACRO END” is printed whenever 
the Macro Update Program is through 
processing a definition. 


If the library being worked upon is 
concatenated to another library, this 
number indicates the logical drive 
number and sector address of the 
concatenated library. If no concatena- 
tion exists, this number is zero. 


The Macro Update Program prints the 
macro names it encounters when scan- 


ning through a library. The two numbers 


in front of the macro name indicate 
information as described in 


(10) The library named in a LIB, JOIN, or 
CONCAT statement must have been 
defined previously with an *DFILE 
control statement and initialized with 
a BUILD statement. 


This message is printed when the Macro 
Update run has been completed. It 
does not imply successful completion; 
messages prior to this one may indicate 
error conditions. 


Errors and Warnings 


During the assembly process, the Macro Assembler checks for 
source program errors. If an error is detected, an error 
flag or an error code and message will be printed. If a 
questionable instruction is encountered, it is flagged with 
a warning flag, Q. Errors in the Macro Update Program are 
detected by the DM2 Disk Utility Program or the MPX Disk 
Management Program. 


Macro Assembler Sign-Off Message 


At the end of each assembly, the Macro Assembler indicates 
the number of errors and warnings it encountered during that 
assembly. The message reads: 


XXX ERROR(S) AND XXX WARNING(S) IN ABOVE ASSEMBLY. 


XXX represents a three-digit decimal number. 


Macro Assembler Warning Flag 


If the source program contains certain questionable 
instructions, the Macro Assembler will interpret and process 
them and flag them with a Q. For example, the statement 
MDX L PLACE is assembled as-MDX L PLACE,0 and is flagged 
with the warning indicator. Warning flags are not counted 
as errors and will not prevent the execution of the object 
program. It is suggested that you check to make sure that 
the Macro Assembler has performed the task that you really 
wanted it to do on each statement flagged with a Q. 


Macro Assembler Error Detection Codes 


During the assembly process, the Macro Assembler checks the 
source program for errors. Error and warning flags are 
printed to the left of the label field of each source 
statement that is in error or is questionable. Fora 
complete description of the listing format of an assembly, 
see the 1130 DM2 Programming and Operator's Guide, Order 
Number GC26-3717, or the 1800 Error Messages manual, Order 
Number GC26-3727. 


See Table 1 for an explanation of the error flags and Table 
2 for a listing of the Macro Assembler error messages and 
their meanings. 


Macro Update Program Error Messages 


When the DM2 Disk Utility Program or the MPX Disk Management 
Program encounters an error in the Macro Update Program, one 
of the error messages in Table 3 is printed. 
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Table 1. Error Flags ~-", 


Cause and Macro Assembler Action 


@ Address Error. Attempt made to specify, directly or indirectly, a displacement field outside range of -128 to +127. 
Displacement is set to zero. 


@ Invalid reference to CE Core in a iong form instruction. Address field is set to zero. {1800 only) 


Condition Code Error. Character other than +, -, Z, E, C, or O detected in first operand of short branch or 
second operand of long BSC, BOSC, or 8SI statement. Displacement is set to zero. 


Format Code Error. Character other than L, 1, X, or blank detected in column 32, or L or | format specified for 
an instruction valid only in short form, or | format specified when not allowed. Instruction processed as if L format 
were specified, unless that instruction is valid only in short form, in which case it is processed as if the X format 

were specified. 


Label Error. Invalid symbol detected in tabel field. Label is ignored. 


Multiply Defined Label Error. Same symbol encountered in label fields of two or more statements. First occurrence 
of symbol! in label field defines its value; subsequent occurrences of symbol! in label field are ignored and cause an 
M error flag to be printed. 


Op Code Error. 
© Invalid op code. Statement is ignored and address counter is incremented by 2. 


© ABS used when *COMMON is used to define FORTRAN common table. Statement is ignored. {1800 only) 
® Iss, ILS, ENT, LIBR, SPR, EPR, or ABS incorrectly placed. Statement is ignored. 


Warning. A statement whose syntax is questionable was encountered. 

Relocation Error. 

@ Expression does not have a valid relocation. Expression is set to zero. 

© Non-absolute displacement specified. Displacement is set to zero. 

®@ Absolute origin specified in relocatable program. Origin is ignored. - 
e 


Non-relocatable operand in END statement of relocatable mainline program. Columns 9-12 are left blank; 
entry is assumed to be relative zero. 

Non-absolute operand specified in 8SS or BES. Operand is assumed to be zero. 

ENT operand is non-relocatable. Statement is ignored. 

Invalid reference to CE Core. Address field is set to zero. {1800 only) 

Invalid reference to a symbol defined ina COMMON area. Address field is set to zero. {1800 only) 


Syntax Error. 


@ Invalid expression, for example, invalid symbol, adjacent operators, or illegal constant. Expression is set to zero. 
@ Illegal character in record. if illegal character appears in expression, label, op code, format, or tag field, 
additional errors may be caused. 


Main program entry point not specified in END operand. Columns 9-12 are left blank; entry is assumed to be 


relative. zero. 


Incorrect syntax in EBC statement (such as no delimiter in column 35, or zero character count). Columns 9-12 
are not punched; address counter is incremented by 17. 


@ Invalid label in ENT or ISS operand. Statement is ignored. 


Tag Error. Column 33 contains character other than blank, 0, 1, 2, or 3 in instruction statement. Tag of zero 
is assumed. 


Undefined symbol. Undefined symbol in expression. Expression is set to absolute zero. 


1130 ONLY 
X or Y coordinate, or both, not within the specified range, or invalid operand. Operand set to zero. 
Character other than R or | in column 32, or character other than D or N in column 33. Field set to zero. 


Invalid condition in a conditional branch or interrupt order. Condition bits in first word set to zero. 
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@eTable 2. 


Error Code and Message 


Macro Assembler Error Codes and Messages 


A01 
{1130} 


A01 
(1800) 


A02 
(1130) 


A02 
(1800) 


AO3 


A05 
(1800) 


AO06 


AQ7 
{1130} 


A07 
(1800) 


AO8 


AO 9 
(1130) 


A0g 
(1800) 


A10 
(1130) 


A10 
(1800) 
A12 
A21 
A22 


A40 


A41 


MINIMUM W.S. NOT AVAILABLE 
ASSEMBLY TERMINATED 


MINIMUM W.S. NOT AVAILABLE... 
ASM TERM. 


SYMBOL TABLE OVERFLOW 
ASSEMBLY TERMINATED 


SYMBOL TABLE OVERFLOW... 
ASM TERM. 


DISK OUTPUT EXCEEDS WS. 


SAVE SYMBOL TABLE !NHIBITED 


XXX ERRONEOUS ORG, BSS, OR 
EQU STATEMENTS IN ABOVE 
ASSEMBLY 


ERRONEOUS STMNT ON 
PASS ONE. 


LOAD BLANK CARDS 


ABOVE CONTROL STATEMENT 
INVALID 


INVALID CTRL STATEMENT 


MACLIB UNDEFINED 


PARAMETER LIST OVERFLOW 
ASSEMBLY TERMINATED 


PARAM LIST OVFLO 


MACRO AREA OVERFLOW 
ASSEMBLY TERMINATED 


MACRO LIBR OVFLO 


NEST LEVEL EXCEEDS 20 
ASSEMBLY TERMINATED 


*LEVEL CONTROL STATEMENT 
MISSING 


INVALID LIST DECK OPTION 
ASSEMBLY TERMINATED 
MAIN PROG NO NAME 

//CARD READ 

ABSOLUTE REENTRANT PROG 


INVALID SFRLE FILE 


LIT TBL OVFLO 


XREF DATA OVFLO 


Working Storage {for DM2) or Batch Processing Working Storage {for MPX) 
available is less than the number of overflow sectors specified plus one. 


Number of sectors of symbol table overflow is greater than the number of overflow 
sectors specified. 


Intermediate output in pass 1 or final disk system format output in pass 2 is larger 
than Working Storage {for DM2) or Batch Processing Working Storage {for MPX) 
minus the number of overflow sectors specified. 


With *SAVE SYMBOL TABLE option specified: 

@ Program in relocatable assembly. 

@ Program contains an assembly error. 

@ Source program causes more than 100 symbols to be present in the System 
Symboi Table. 


XXX is the number of ORG, BSS, BES, and/or EQU statements that were undefined 
in pass 1. At the end of pass 1, these erroneous statements are printed on the list 
printer. If the error was due to forward referencing, it will not be detected during 
Pass 2. 


Errors were detected during pass one. This warning message is printed at the end of 
pass one. 


A card containing a nonblank column in columns 1-71 has been read while punching 
the symbol table {as a result of an *PUNCH SYMBOL TABLE control statement). 


An invalid contro! statement has been read by the Macro Assembler. The control 
statement is ignored and the assembly is continued. 


The Macro Assembler has been asked to process a SMAC statement and either no 
*MACLIB control statement was previously read, or the name on the *MACLIB 

statement is not found in a disk area search. The library named in the *MACLIB 

statement has a library concatenated to it and this library could not be found. 


A call to a macro exceeds the space specified in the N2 field of the “OVERFLOW 
SECTORS control statement used with this assembly. If the “OVERFLOW 
SECTORS control statement was not used or if the N2 field was not specified, the 
Macro Assembler assumes the value of the N2 field to be zero. 


An attempt was made to define a temporary macro and either the N3 field of the 
*OVERFLOW SECTORS controf statement was not specified, or the the space 
specified by N3 was not large enough, or the macro library was exceeded. 


A macro call exceeded the allowable nest level limit of 20. 


The program listed above was assembied as an ISS subroutine without the required 
*LEVEL control card. (1130 only) 


An attempt was made to punch macro statements in two pass mode. {1130 only) 


Mainline program being assembled has no name specified on a // ASM statement. 
{1800 only) 


A Supervisor control statement has been read by the Macro Assembler. The Macro 
Assembler has passed this statement along to the Supervisor before terminating the 
assembly. Loading and DMP operations are inhibited. {1800 only} 


A non-relocatable program has been specified as reentrant. (1800 only) 


When loading the source deck via *SF RLE, the file was truncated due to insufficient 
sector allocation. {1800 only) 


The size of the literal table as specified on the fourth parameter of the “OVERFLOW 
SECTORS control statement was too small. (1800 only} 


VCORE was too small to sort and merge the data for building the cross-reference 
table. {1800 only) 
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Table 3. Macro Update Program Error Messages 


Error Code and Message Cause and Corrective Action 


D100 LIBRARY NOT FOUND Librery named on a LiB, BUILD, JOIN, or CONCAT statement could not be found on 
drives currently in use. If LIB, BUILD, or JOIN statement, all statements are ignored 
until the next LIB, BUILD, or ENDUP statement is encountered. If CONCAT statement, 
Processing continues with the next contro! statement. 


Correct the name field in the statement in error, or change the // JOB statement to include 
the drive on which the named library resides, or define the macro library using an *DFILE 
or *STOREDATA contro! statement. 


D101 INVALID SUBFIELD COL XX if on an INSERT or DELETE statement, the sequence number was incorrectly specified, 
that is, it was negative, or non-numeric, or sequence numbers were reversed. If ona 
SELECT statement, an incorrect parameter was specified. Processing continues with the 
next contro! statement. 


If on a NAME statement, an invelid parameter was detected. Processing continues with 
next LIB, BUILD, or ENDUP statement. 


XX indicates the column in which the error was found. Correct the error and rerun the 
Portion of the job affected. 


D102 iLLEGAL REQUEST An invalid control statement was detected, an INSERT or DELETE statement was not 
preceded by an UPDATE or RENAME statement, or on an 1130, request was made for 
output to paper tape or to a pack configured for paper tape. Processing continues with 
the next contro! statement. 


Correct the error and rerun the portion of the job affected. 


D103 LIBRARY OVERFLOW The library last specified by a LIB or BUILD statement does not have enough room to 
perform the operation. If on a JOIN or an ADD statement, the operation is suppressed 
and the library is restored to its previous state. If on en INSERT statement, the stete- 
ments listed prior to the message were the only ones that could be included. Processing 
continues with the next LIB, BUILD, or ENDUP statement. 


Additional space can be obtained in the current library by purging unneeded macros or 
deleting unneeded statements. If this is not possible, define a larger library using an 
*DFILE or *STOREDATA control statement, join the old library to a new one, and 
delete the old library. Once the edditional space has been obtained, rerun the portion 
of the job affected. If on an INSERT, it may be necessary to alter your INSERT control 
statement as the statements in the macro library may have been resequenced. 


MACRO NOT FOUND The macro name specified on an OUTPUT, PURGE, RENAME, or UPDATE statement 
could not be found in the library being processed. Processing continues with the next 
control statement. 


Correct the macro neme on the statement in error, or specify the correct macro library 
and rerun the portion of the job affected. 


SEQUENCE NUMBER NOT The sequence number on an INSERT or DELETE statement was out of the range of the 

FOUND macro and could not be found or the sequence numbers on multiple INSERT and/or 
DELETE statements for the same macro were out of order. Processing continues with 
the next contro! statement. 


Place a correct sequence number on the stetement in error and rerun the portion of the 
job affected. 


LIBRARY NOT SPECIFIED An attempt was made to operete on a macro without specifying a macro library. 
Processing continues with the next LIB, BUILD, or ENDUP statement. 


Piace a LIB or BUILD statement before the statement in error and rerun the portion of 
the job affected. 


SPILL OVERFLOW Macro text insertions have caused the capecity of Working Storage spill to be exceeded. 
Processing continues with the next LIB, BUILD, or ENDUP statement. 


Correct the sequence numbers in the unprocessed INSERT statements, if necessary, and 
rerun these statements. It may be necessary to define additional disk drives to provide 
adequete Working Storage. 


CONTROL STATEMENT An * or // statement has been read and the MUP run is termineted. On the 1800, control 

READ is passed to the Supervisor which will begin processing with the next // JOB statement. 
On the 1130 control is returned to the Supervisor for a // statement or to DUP for an * 
statement. 


NAME STATEMENT NOT The operation attempted requires a NAME statement and one has not been processed 
FOUND following the last LIB or BUILD statement. Processing continues with the next LIB, 
BUILD, or ENDUP statement. 


Insert a NAME statement and rerun the part of the job that was affected. 
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Table 3. Macro Update Program Error Messages (Continued) 


Error Code and Message Cause and Corrective Action 


D110 INVALID NAME The name field on a LIB, BUILD, JOIN, CONCAT, UPDATE, ADD, PURGE, RENAME, or 
OUTPUT statement was !eft blank, the name specified was invalid, or the apostrophes are 
improperly placed. If on a LIB, BUILD, or JOIN statement, processing continues with the 
i next LIB, BUILD, or ENDUP statement. If on a CONCAT, UPDATE, ADD, PURGE, 
RENAME, or OUTPUT statement, processing continues with the next control statement. 


D112 NONBLANK CARD READ. A nonblank card has been read by a 1442-6 or -7 during a punch operation. 
ENTER BLANK CARDS 


Remove stacked input from hopper, NPRO nonbiank cards, piace blank cards followed by 
NPRO cards end stacked input in the hopper, and press reader START and for the 1130 
press program START. 


D116 LIBRARY NOT INITIALIZED Library named on a LIB, JOIN, or CONCAT statement has not been initialized previously. 
If on a LIB, or JOIN statement, processing continues with the next LIB, BUILD, or 
ENDUP statement. If on a CONCAT statement, processing continues with the next 
control statement. 


Initialize the library with a BUILD statement, and rerun the portion of the job affected. 
If on a BUILD statement, the library specified was not a data file. 
Correct the BUILD statement and rerun the portion of the job affected. 


0117 INVALID PARAMETER Ona NAME statement, more than 20 parameters were specified. if during the processing 
of a macro, a paremeter has been detected which was not defined in the NAME statement 
or a parameter greater than one character was used in the format or tag field. If during an 
OUTPUT operation, the operation is aborted and processing continues with the next control 
statement. If during a listing operation, this is a warning message and the invalid parameter 
is printed as //N where N is 1-20. (Note: N may be truncated if the field size is exceeded.) 


tf on OUTPUT, correct the NAME statement and rerun the portion of the job affected. 
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Appendix A: General Examples of Macros and 1130 DM2 


Macro Assembler Features 


The following group of macros and the examples of their use 
are intended to demonstrate how macro instructions can be 
used to simplify assembler-language programming. If all 
these macros were defined in your system, then you could use 
two new statements--the READ statement and the WRITE 
statement--to accomplish all the programming normally 
required to effect input and output on an 1130 system having 
a disk, a 1442 card read punch, and a 1403 printer. When 
you issue a READ or WRITE macro, you need specify only the 
name (DISK, CARD, or PRINT) of the device you want to use, 
the name of the I/O area, and, if you want, the name of your 
error-handling program. This system of macros then issues 
calls to the appropriate I/O control subroutines, handles 
data conversion and blocking, and, at your option, handles 
error checking and retries. 


You could, of course, expand this set of macros to include 
all I/O devices supported by the 1130 system; you could also 
write a similar set of macros to simplify I/O programming on 
the 1800 system. 


Refer to the 1130 Subroutine Library manual, Order Number 
GC26-5929, for a complete description of the 1130 I/0 
control subroutines (DISKN, CARDi1, and PRNT3) referred to in 
these macros. 


The first part of this sample program (until the *MACRO 
UPDATE statement) is a FORTRAN program that builds a one 
sector file of one-word integers having the value 1 through 
320. This is necessary to handle the data file in the 
sample program that follows it. 


// JOB SMACOOLO 
LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 0578 0578 0000 
v2 MO6 ACTUAL 32K CONFIG 32K 
//* * *& & ee eR EEE KK RK EK KK ES Ke EK KK KK ee ee SMACOOZ0 
// * CREATE A DISK DATA FILE NAMED *FILE1* AND FILL IT WITH * SMAC0030 
// * 320 INTEGER VALUES 1 TO 320 VIA FORTRAN. *  SMACO0040 
r // 8 8 8 eee eee EER ER KR ee eK ee eK eK Ke * * SMACOO5O 
// DUP SMACO060 
e *DELETE FILE? SMACOO070 
D 26 NAME NOT FOUND IN LET/FLET 
*STOREDATA WS UA FILEL 1 SMACOO080 
CART ID 0578 DB ADDR 3220 DB CNT 0010 
( " // €OR SMAC0090 
, *1OCS{(DISK) SMACOLOO 
*LIST ALL SMACO110 
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*ONE WORD INTEGERS 
DEFINE FILE 1(32051,U,K) 
K=1 
IVAL = 1 
00 100 ft = 1,320 
WRITE (19K) IVAL 
IVAL = IVAL + 1 

100 CONTINUE 

CALL EXIT 
END 

VARIABLE ALLOCATIONS 


K(I )=0008 IVAL(I )=0009 I{I )=000A 


STATEMENT ALLOCATIONS 
100 =0028 


FEATURES SUPPORTED 
ONE WORD INTEGERS 
10cs 


CALLED SU8PROGRAMS 
SDFIO SDWRT SDCOM SDI 


INTEGER CONSTANTS 
1=000C 320=000D 


CORE REQUIREMENTS FOR 
COMMON O VARIABLES 12 PROGRAM 38 


END OF COMPILATION 
// XEQ Lou 


*FILES(1, FILE) 
FILES ALLOCATION 
10322 0001 O578 FILE1 
STORAGE ALLOCATION 
R 41 7AFC (HEX) WDS UNUSED BY CORE LOAD 
LIBF TRANSFER VECTOR 


PAUSE 04D8 

SDCOM O2A5 

SDI O25E 

SDWRT O2DA 

SDFIO O2DF 
SYSTEM SUBROUTINES 
ILS04& 00C4 

ILSO2 0083 


O20C (HEX) IS THE EXECUTION ADDR 


// JOB 


LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 1111 1111 0002 


V2 MO7 ACTUAL 32K CONFIG 32K 


// 8 eee EERE EEE REE KEE EERE EH KE 


// * DEFINE A DISK FILE AND INITIALIZE IT FOR A MACRO LIBRARY. 


Oe ee 


// DUP 


*DELETE PURGE 
CART 1D 1111 DB ADDR 2620 DB CNT 0050 


*DFILE UA PURGE 0005 
CART ID 1111 DB ADDR 2620 DB CNT 0050 


*MACRO UPDATE 
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SMACO120 
SMACO130 
SMAC0140 
SMAC0150 
SMACO0160 
SMACO170 
SMACO180 
SMACO190 
SMACO0200 
SMACO210 


SMAC0220 


SMACO230 


SMACO260 


SMAC0270 
SMACO280 
SMACO0290 
SMAC0300 


SMACO310 


SMACO320 


SMACO330 


BUILD *PURGE® 


ENOUP 


0262 0005 ** LIBRARY END 


0000 


UPDATE COMPLETED 


*% 


J/ ee eee RE HEE EEE EEE EEE HE 


// * DEFINE 11 MACROS FOR THE MACRO LIBRARY NAMED "PURGES * 


JO RRR REE EE EEE EEE EEE EE ee 


// ASM 
*MACLIB PURGE 
*LIST 


00001 
00002 
00003 


00001 
00002 
00003 
00004 


00001 


* ££ &€ ee EK ERE EE EE EEE REE KH KE 


t 


ILLRQ MACRO 


a 


* PRINTS ILLEGAL REQUEST MESSAGE WHEN CALLED * 
SMAC 
ILLRQ LLEGAL REQUEST GENERATOR 
LIST ON FORCE LISTING 
* ILLEGAL REQUEST PRINT MESSAGE 
LIST RESTORE LIST CONDITION 
MEND 
* *£ & eK RE EE HE KEKE KE KR KEKE KH HE KE HEE EH KE EK 
* AUTO ERROR * 
* GENERATES A DEFAULT ERROR ROUTINE WHEN ERROR * 
* PARAMETER WAS O OR NOT PASSED. * 
* *£€ &€e ee KE KEKE EE HE EEE HEE HE He KE KK 
SMAC 
AUTOE AUTOMATIC ERROR GENERATOR 
DC #+1 CALL SEQ-ERROR ENTRY ADDR 
MDX #43 SKIP AROUND ERROR SUBR 
DC an ENTER HERE ON ERROR 
BSC ¥-3 RETURN TO RETRY OPERATION 
MEND 
eke &£ee KER EH KE EEE EE KEK K Ke K Ke 
* READ MACRO * 
* SETS FUNCTION CODE AND CALLS SPECIFIC DEVICE #* 
* MACRO. * 
* LABEL = LABEL * 
* DEVC = DISKyCARD, OR PRINT * 
* AREA = I/O AREA ADDRESS OR LABEL * 
* ERROR = ADDRESS OF USERS ERROR ROUTINE * 
* THIS PARAMETER IS OPTIONAL * 
* IF 0 OR BLANK,THE MACRO GENERATES # 
* AN ERROR ROUTINE % 
e& £ eee KEKE KER He HR HR HR EEE KEKE KEK KE KK 
SMAC GENERAL READ MACRO 
LABEL READ DEVC,AREA,ERROR 
LABEL DEVC 1,AREA, ERROR 
MEND 
ee * © eB &€ RE Ke HE HE HK HE HE eK Ke KK Ke Ee KE K 
* WRITE MACRO. * 
* LABEL = LABEL 
* DEVC = DISK,CARD, OR PRINT * 
* AREA = I/O AREA ADDRESS OR LABEL * 
* ERROR = ADDRESS OF USERS ERROR ROUTINE * 
x THIS PARAMETER IS OPTIONAL x 
* IF 0 OR BLANK,THE MACRO GENERATES * 
* AN ERROR ROUTINE * 
ze *«£ &e ee Eee Ee KE KE EE KE EE EE KE KE KK KK 


SMACO340 


SMACO350 


SMACO360 
SMACO370 
SMAC0380 


SMACO390 
SMAC0400 
SMACO410 
SMAC0420 
SMACO0430 
SMAC04&40 
SMACO0450 
SMACO460 
SMAC0470 
SMAC0480 
SMACO0490 
SMACO500 


SMACO520 
SMACO530 
SMACO540 
SMACO550 
SMACO0560 
SMACO0570 
SMACO580 
SMACO590 
SMACO0600 
SMACO0610 
SMACO0620 
SMAC0630 


SMACO0650 
SMAC0660 
SMACO670 
SMACO680 
SMACO0690 
SMACO700 
SMACO710 
SMACO720 
SMACO730 
SMACO740 
SMACO750 
SMACO760 


SMACO770 
SMACO780 
SMACO790 
SMACOBOO 


SMACO820 
SMAC0830 
SMAC0840 
SMACO0850 
SMACO860 
SMACO870 
SMACO880 
SMACOB90 
SMACO0900 
SMACO9LO 
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SMAC GENERAL WRITE MACRO SMACO920 


LABEL WRITE DEVC,AREA,ERROR SMACO930 

00001 LABEL DEVC 32AREA,ERROR SMAC0940 
MEND SMACO950 

% ee eee KE KR ERE HE EH EK EK Ke KH eK KE EK SMACO9TO 

* DISK MACRO * SMACO980 

* GENERATES A LIBF CALL TO DISKN.e * SMmMACO990 

* TO TEST FOR DISKN BUSY YOU MUST CALL THE DISK * SMAC1000 

* MACRO DIRECTLY WITH A FUNC CODE OF O. * SMACLOLO 

* LABEL = LABEL * SMAC1020 

* FUNC = It FOR READ,3 FOR WRITE AND O FOR test SMAC1O30 

* AREA = I/0 AREA ADDRESS OR LABEL SMAC1040 

* ERROR = OPTIONAL USERS ERROR ROUTINE * SMAC1O50 

x ee eR ee RE ER RE KR EE Re KE Eee KKK eK KE SMAC 1060 

SMAC DISK CALL GENERATOR SMAC1LO7T0 

LABEL DISK FUNC sAREA,ERROR SMACLO8O 

00001 LABEL LIBF DISKN CALL DISK SUBR SMAC1090 
00002 AIF (FUNC EQ 1},READ TEST FOR READ FUNC’ SMAC1100 
00003 AIF (FUNC EQ 3),WRITE TEST FOR WRITE FUNC SMAC1110 
00004 AIF (FUNC EQ 0),TEST TEST FOR TEST FUNC SMAC1120 
00005 ILLROQ ILLEGAL REQUEST,ABORT CALL SMAC1130 
00006 AGO END TERMINATE MACRO SMAC1140 
00007 READ ANOP SMAC1150 
00008 oc 41000 READ FUNC CODE SMAC1160 
00009 AGO AREA GO ASSEMBLE 1/0 AREA ADDR SMAC1170 
00010 WRITE ANOP SMAC1180 
00011 oc 43000 WRITE FUNC CODE SMAC1190 
00012 AGO AREA GO ASSEM I/O AREA ADDR SMAC1200 
00013 TEST ANOP SMAC1210 
00014 oc 40000 TEST FUNC CODE SMAC1220 
ooolLs oc ¥+2 1/0 AREA ADDR SMAC1230 
00016 MDX 4-4 BRANCH TO CONTINUE BUSY TES SMAC1240 
Oool7 MDX ¥+2 BRANCH AROUND I/O AREA SMAC1250 
00018 BSS 2 DUMMY 1/0 AREA SMAC1260 
00019 AGO END EXIT MACRO SMAC1270 
00020 AREA ANOP SMAC1280 
00021 bc AREA-1 1/0 AREA ADDRESS SMAC1290 
00022 QERR SET ERROR CK FOR DEFAULT ERROR SMAC1300 
00023 AIF (QERR EQ 0},AUTOE SMAC1310 
00024 oc ERROR USER SPECIFIED ERROR PARAM SMAC1320 
00025 AGO END EXIT MACRO SMAC1330 
00026 AUTOE ANOP SMAC1340 
00027 AUTOE GENERATE ERROR SUBR SMAC1350 
00028 END ANOP SMAC1360 
MEND SMAC1370 


* ee ee EK KE KR KE eK RK KKK KKK KK KK SMAC1390 

* CARD MACRO * S$MAC1400 

* GENERATES A LIBF CALL TO CARD1 SUBROUTINE. * $MAC1410 

* TO TEST FOR CARDL BUSY YOU MUST CALL THE CARD * SMAC1420 

* MACRO DIRECTLY WITH A FUNC CODE OF O. * SMAC1430 

* LABEL = LABEL * SMAC1440 

* FUNC = 1 FUR READ,3 FOR WRITE AND O FOR test SMAC1450 

* AREA = I/0 AREA ADDRESS OR LABEL SMAC1460 

* ERROR = OPTIONAL USERS ERROR ROUTINE * SMAC1470 

x ee eR Ke EK KE RE Ke KR RR EK RK KK KK KE KK SMACL480 

SMAC CARD CALL GENERATOR SMAC1490 

LABEL CARD FUNC ,AREA,ERROR SmAC1500 

ooool LABEL LIBF CARDL CALL CARD SUBR SMAC1510 
00002 AIF (FUNC EG 1),READ TEST FOR READ FUNC SMAC1520 
00003 AIF (FUNC EQ 3),WRITE TEST FOR WRITE FUNC SMAC1530 
00004 AIF (FUNC EQ 0),TEST TEST FOR TEST FUNC SMAC1540 
00005 ILLRQ ILLEGAL REQUEST,ABORT CALL SMAC1550 
00006 AGO END TERMINATE MACRO SMAC1560 
00007 READ ANOP SMAC1570 
00008 boc 41000 READ FUNC CODE SMAC1580 
00009 AGO AREA GO ASSEMBLE I/0 AREA ADDR SMAC1590 
oo0olLd WRITE ANOP SMAC1600 
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00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 


00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 


00001 
00002 
00003 
00004 
00005 


oc 42000 WRITE FUNC CODE 
AGO AREA GO ASSEM 1/0 AREA ADDR 
TEST ANOP 
DC 40000 TEST FUNC CODE 
MDX *-3 BRANCH TO CONTINUE BUSY TES 
AGO END EXIT MACRO 
AREA ANOP 
boc AREA-1 I/O AREA ADDRESS 
QERR SET ERROR CK FOR DEFAULT ERROR 
AIF (QERR EQ 0),AUTOE 
oc ERROR USER SPECIFIED ERROR PARAM 
AGO END EXIT MACRO 
AUTOE ANOP 
AUTOE GENERATE ERROR SUBR 
END ANOP 
MEND 
x ee Re KR RK RR KR KR RR KR KR KR RK RK RR KE 
* PRINT MACRD * 
* GENERATES A LIBF CALL TO PRNT3 SUBROUTINE * 
* TO TEST FOR PRNT3 BUSY YOU MUST CALL THE PRINT * 
* MACRO DIRECTLY WITH A FUNC CODE OF O. * 
* LABEL = LABEL * 
* FUNC = 3 FOR PRINT AND O FOR TEST * 
* AREA = I/0 AREA ADDRESS OR LABEL * 
* ERROR = OPTIONAL USERS ERROR ROUTINE * 
xe we we we Ke RR KR RE EK KK EE EE EE KK EE K 
SMAC PRINT CALL GENERATOR 
LABEL PRINT FUNC,AREA,ERROR 
LABEL LIBF PRNT3 CALL PRINT SUBR 
AIF (FUNC EQ 3),WRITE TEST FOR WRITE FUNC 
AIF (FUNC EQ 0),TEST TEST FOR TEST FUNC 
ILLRQ ILLEGAL REQUEST,ABORT CALL 
AGO END TERMINATE MACRO 
WRITE ANOP 
oc 42000 WRITE FUNC CODE 
AGO AREA GO ASSEM 1/0 AREA ADDR 
TEST ANOP 
oC 40000 TEST FUNC CODE 
MDX x-3 BRANCH TO CONTINUE BUSY TES 
AGO END EXIT MACRO 
AREA ANOP 
DC AREA-1 I/O AREA ADDRESS 
QERR- SET ERROR CK FOR DEFAULT ERROR 
AIF (QERR EQ 0),AUTOE 
oC ERROR USER SPECIFIED ERROR PARAM 
AGO END EXIT MACRO 
AUTGE ANOP 
AUTOE GENERATE ERROR SUBR 
END ANOP 
MEND 


eek eR KR KR ERR RK 


CONVERT MACRO 
THIS MACRO HANDLES 
HOLLERITH TO PRINTER CODE VIA *HOLPR® 
1 BINARY TO 6 HOLLERITH CHARS VIA *BINDC® 
6 HOLLERITH TO 1 BINARY CHAR VIA *DCBIN' 


HHHKHHH HH HHH HH 
= 
re 
m 
RP 
m 


ee eR KKK EE EE KR KE KR KE KR KR KE KE KE 


SMAC 
LABEL CNVRT 
LABEL LIBF 

AGO 
HOLPR ANOP 

oc 

oc 


INPUT AREA (OUTPUT FOR BINDC) 
CONVERSION RT» HOLPRy»BINDC OR DCBIN 
OUTPUT CODE FOR HOLPR 

O FOR CONSOLEs 1 FOR 1403 PRINTER 
OUTPUT AREA FOR HOLPR 

CHARACTER COUNT FOR HOLPR 


HHH HHH HH HH 


CODE CONVERSION CALL 
Se er eee Eee! 
RT GEN APPROPRIATE CODE 
STOP HERE FOR HOLPR 
/+PRNITR CONVERSION CODE 
AREA INPUT 


SMAC1610 
SMAC1620 
SMAC1630 
SMAC1640 
SMAC1650 
SMAC1660 
SMAC1670 
SMAC 1680 
SMAC1690 
SMAC1700 
SMAC1710 
SMAC1720 
$MAC1730 
SMAC1740 
SMAC1750 
SMAC1 760 


SMAC1780 
$MAC1790 
SMAC1800 
SMAC1810 
SMAC1820 
SMAC1830 
SMAC1840 
SMAC1850 
SMAC1860 
SMAC1870 
SMAC1880 
SMAC1890 
SMAC1900 
SMAC1910 
SMAC 1920 
SMAC1930 
SMAC1940 
SMAC1950 
SMAC1960 
SMAC1970 
SMAC 1980 
$MAC1990 
SMAC2000 
SMAC2010 
SMAC2020 
SMAC 2030 
SMAC2040 
SMAC2050 
SMAC2060 
SMAC2070 
SMAC 2080 
SMAC 2090 
SMAC2100 
SMAC2110 


SMAC2130 
SMAC2140 
SMAC2150 
SMAC2160 
SMAC2170 
SMAC2180 
SMAC2190 
SMAC2200 
SMAC2210 
SMAC2220 
SMAC2230 
SMAC2240 
SMAC2250 
SMAC2260 
SMAC2270 
SMAC2280 
SMAC2290 
SMAC2300 
SMAC2310 
SMAC2320 
SMAC2330 
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00006 oC OUTPT OUTPUT 
00007 DC CHCT CHAR COUNT 
00008 AGO END 
00009 RT ANOP STOP HERE FOR BINDC AND DCBIN 
00010 DC AREA 1/0 AREA 
END MEND 
=e © eee ERE RSE EK KR KR KEE HK KK KR KK 
* BLOCK MACRO 
* GENERATE A BLOCK OF CONSTANTS. 
* A = CONSTANT TO FILL BLOCK WITH 
* B = NUMBER OF CONSTANTS TO GENERATE 
ze eee KR Ke He HE KE KU Kh RHKhU KK KEK KK KK 
SMAC CONSTANT DATA BLOCK 
LABEL BLOCK A,B GENERATOR 
ooool LIST OFF 
00002 COUNT SET B 
00003 DATA ANOP 
00004 LIST 
00005 Dc A 
00006 LIST OFF 
00007 COUNT SET COUNT-1 
00008 AIFB (COUNT GT 0)+sDATA 
00009 LIST 
MEND 
ze eee Ke KR Ke KR KR KR KR KR KK KKK KK KK KE HK 
* INREG MACRO 
* LOAR AN INDEX REGISTER WITH A VALUE 
* A = THE VALUE, B = THE REGISTER NUMBER 
ze ee Ree Ke KR EK KE Ee KEK EEE KEK KKK UE 
SMAC SET REGISTER B TO VALUE A 
A INREG B 
00001 AIF {A GT 127),LONG 
00002 AIF (A LT -128)¢LONG 
00003 LDX BA 
00004 AGO END 
00005 LONG ANOP 
00006 LOX LBA 
00007 END ANOP 
MEND 
x ¢ eee Ke KKK EEK HK KKK KE KK Ee KE HK 
* DECR MACRO 
* DECREMENT A COUNTER FOR LOOP CONTROL. 
* A = STORAGE ADDRESS OF COUNTER, IF ANY 
* B = REGISTER NUMBER 
* C = THE DECREMENT VALUE 
* 2 ee eK KE Ke KK EHR EE KR KR KE REE KR EE 
SMAC DECREMENT COUNTER 
A DECR BeC 
90001 AIF {B EQ 0),LONG TEST FOR INDEXING 
00002 MDX B -C INDEXED COUNTER 
00003 AGO END 
00004 LONG ANOP 
00005 MDX L Ay-C NON-INDEXED COUNTER 
00006 END ANOP 
MEND 
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ett HH Ht 


* 


* 
x 
= 


x 
* 
* 
x 


x 
*x 


SMAC2340 
SMAC2350 
SMAC2360 
SMAC2370 
SMAC2380 
$MAC2390 


SMAC2410 
SMAC2420 
SMAC2430 
SMAC2440 
SMAC2450 
SMAC2460 
SMAC2470 
SMAC2480 
SMAC2490 
SMAC2500 
SMAC2510 
SMAC2520 
SMAC2530 
SMAC2540 
SMAC2550 
SMAC2560 
SMAC2570 
SMAC2580 


$MAC2600 
SMAC2610 
SMAC2620 
$MAC2630 
SMAC2640 
SMAC2650 
SMAC2660 
SMAC2670 
SMAC2680 
SMAC2690 
SMAC2700 
SMAC2710 
SMAC2720 
$MAC2730 
SMAC2740 


SMAC2760 


SMAC2770 
SMAC2780 
SMAC2790 
SMAC2800 
SMAC2810 
SMAC2820 
SMAC2830 
SMAC2840 
SMAC2850 
SMAC2860 
SMAC2870 
SMAC2880 
SMAC2890 
SMAC2900 
SMAC2910 


0000 20 


0001 0 


0002 1 
0000 


0003 
0004 
0005 
0006 


ooor 


0008 00 


O00A 20 
OOOB 0 


oooc 1 
0000 


0O0D 1 
OOOE O 
OOOF 0 
0010 0 


0012 20 
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04262495 


-1000 


0061 


0005 
7003 
0000 
4C800005 


6600013C 


03059131 


1000 


OLAS 


OOOF 


7003 


0000 
4C80000F 


03059131 
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es wpe eRe Re HR HE He HE KR eH KK eK He Ke 


Ce 


*® 
* 
* A 
x 
STEPA 
+STEPA 
+STEPA 
+ 
+READ 
+ 
+ 
+FILE 
+ 
+QERR 
+ 


+AUTOE 


+ 


STEPB 
+STEPB 
+STEPB 
+ 


+READ 
+ 

+ 
+DATA 
+ 
+QERR 
+ 
+AUTOE 


END 


PROG 
A- 
B- 
C- 
D- 


E=- 


SAMPLE PROGRAM 
RAM WHICH 
READS ONE SECTOR DATA FILE WHICH CONTAINS 


INTEGER DATA FROM DISK 
READS EVERY 5TH ENTRY FROM CARD 
PUNCHES EVERY 3RD ENTRY TO CARD 


ADDS ONE TO EVERY OTHER ENTRY BEGINNING 


WITH SECOND ENTRY 


WRITES MODIFIED FILE TO PRINTER,5 ENTRIES 


PER LINE 


eee ee ee ee RRR HR EERE KR eK RK KH 


- READ THE DISK DATA FILE & 
READ DISK,FILE,O READ FILE 
DISK leFILE,O 

LIBF DISKN 

AIF (1 EQ 1),READ 

ANOP 

oc 41000 

AGO FILE 

ANOP 

Dc FILE-1 

SET 0 

AIF (QERR EQ 0),AUTOE 

ANOP 

AUTOE 

oc *+1 

MDX #43 

pc *—% 

BSC I ¥#=3 

ANOP 

INREG 2 SET LOOP CONTROL 
AIF (316 GT 127),LONG 

ANOP 

LDX L2 316 

ANOP 

- READ DATA CARDS AND STO IN EVERY 5TH ENTRY 
READ CARD»DATA READ DATA FROM CARD 
CARD 1,DATA, 

LIBF CARD1 

AIF. (1 EQ 1),READ 

ANOP 

oc 41000 

AGO DATA 

ANOP 

DC DATA=-1 

SET 

AIF {QERR EQ 0),AUTOE 

ANOP 

AUTOE 

DC *41 

MDX 43 

DC a-% 

Bsc I ¥*=3 

ANOP 

CARD 0 BUSY TEST 
LIBF CARD1 

AIF {0 EQ 1),READ 

AIF (0 EQ 3) WRITE 


SMAC2930 


SMAC2950 
SMAC2960 
SMAC2970 
SMAC2980 
SMAC2990 
SMAC3000 
SMAC 3010 
SMAC3020 
SMAC 3030 
SMAC3040 
SMAC3050 


SMAC3070 
SMAC3090 


“SMAC3100 


$MAC3110 
$MAC3120 


SMAC3130 


$MAC3150 
SMAC3160 
$MAC3170 
S$MAC3180 


$MAC3190 


75 


0013 
0014 


0015 


0016 
0017 


0019 


OO1A 


0018 


oo1c 


001D 
0000 


OO1E 
OO1F 
0020 
0021 


0023 


0025 


0027 


0028 
0029 


QO02A 


Q002B 


002C 


002D 


O02E 
Q0000 


20 


00 


01 


20 


20 


20 


0000 
TOFD 


04002255 


O1A5 
D6000062 


72FB 


TOEF 


03059131 


1000 


OLAS 


0020 


7003 


0000 
4C800020 


6600013F 


C6000061 


03059131 


0000 
TOFD 


02255103 


O1LA5 


03059131 


2000 


O1A4 


+DCBIN 
+ 


TEST 


++ er eee ee 


AIF (0 £Q 0),TEST 


ANOP 

oC 40000 
MDX *-3 
AGO END 
ANOP 


CNVRT DATA,DCHIN CONVERT 1ST 5 CARD COLUM 
LIBF DCBIN 


AGO DCBIN 

ANOP STOP 

oC DATA 

STO L2 FILE SAVE AS 5TH CHARACTER 

DECR 295 DECREMENT LOOP CONTROL 

AIF (2 EQ 0),LONG 

MDX 2-5 

AGO END 

ANOP 

B STEPB CONTINUE STEP B 
PRIME 1442 FUR PUNCHING 

READ CARDsDATA READ ONE BLANK CARD 

CARD 1,DATA, 

LIBF CARD1 

AIF (1 €Q 1),READ 

ANOP 

DC 41000 

AGO DATA 

ANOP 

DC DATA-1 

SET 

AIF (QERR EQ 0),AUTOE 

ANOP 

AUTOE 

DC ¥+] 

MDX *+3 

OC *-~%& 

BSC [I #*-3 

ANOP 

INREG 2 SET LOOP CONTROL 

AIF (319 GT 127),LONG 

ANOP 

LOX L2 319 

ANOP 


- CONVERT AND PUNCH EVERY 3RD ENTRY 


LO L2 FILE-1 CONVERT INTEGER TO 
CARD 0 BUSY TEST 
LIBF CARDI 

AIF (0 EQ 1),READ 

AIF (0 EQ 3),WRITE 

AIF (0 EQ 0),TEST 

ANOP 

DC /0000 

MDX *-3 

AGO END 

ANOP 


CNVRT DATA,BINDC CARD CODE 
LIBF BINDC 


AGO BINDC 

ANOP STOP 

oC DATA 

WRITE CARDsDATA PUNCH DATA WORD 
CARD 3—eDATA, 

LIBF CARD1 

AIF (3 €Q 1),READ 

AIF {3 EQ 3),WRITE 
ANOP 

oc 72000 

AGO DATA 

ANOP 

DC DATA-1 

SET 

AIF (OERR EQ 0),AUTOE 
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SMAC3200 


SMAC3210 
SMAC3220 


SMAC 3230 
SMAC3240 
SMAC3250 


SMAC3260 


SMAC3280 
SMAC 3290 
SMAC3300 
SMAC3310 
SMAC3320 


SMAC 3330 


SMAC33460 


0036 00 


0038 Ol 
003A 0 
0038 01 


003D 0 


OO3E 0 


0O3F 00 


0041 0 


0042 01 


0044 20 


0045 1 


0046 20 


0047 
0048 
0049 
004A 


omr Oo 


0049 
004B 01 


004D 0 


OO4E 0 
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0031 
7003 
0000 
4C800031 


T2FD 


TOEF 


6600013F 


C6000062 
8025 
D6000062 


T2FE 


TOF9 


6500FECO 


6205 


C50001A3 


02255103 


OLAC 


085935D9 


oool 
O1AC 
O1F6 
0006 


74040049 


T72FF 


TOOE 


+AUTOE 


+ 


ANOP 

AUTOE 

oC *+1 

MDX *+3 

DC x—* 

BSC [ *-3 

ANOP 

DECR 293 DECR LOOP CONTROL 
AIF (2 EQ 0),LONG 

MDX 2-3 

AGO END 

ANOP 

B STEPC CONTINUE STEP C 
INREG 2 SET LOOP CONTROL 

AIF (319 GT 127},LONG 

ANOP 

LDX L2 319 

ANOP 

- ADD ONE TO EVERY OTHER ENTRY * 
LD L2 FILE ADD 1 TO EVERY OTHER 
A ONE DATA ENTRY STARTING WITH 
STO L2 FILE THE 2ND ENTRY 

DECR 292 

AIF {2 EQ 0},LONG 

MDX 2-2 

AGO END 

ANOP 

B STEPD CONTINUE STEP D 
INREG 1 SET OUTER LOOP COUNT 
AIF (-320 GT 127),LONG 

AIF (-320 LT -128),LONG 

ANOP 

LDX Ll -320 

ANOP 

INREG 2 SET A TO 5 

AIF (5 GT 127),LONG 

AIF (5 LT -128) ,LONG 

LDX 25 

AGO END 

ANOP 

- WRITE FILE TO 1403 * 
LD Ll FILE+321 FETCH DATA WORD 
CNVRT DATA+7,BINDC CONVERT DATA TO 1403 
LIBF BINDC 

AGO BINDC 

ANOP STOP 

oc DATA+T 

CNYRT DATA+7,HOLPRylePRINT+¢6 CODE 
LIBF HOLPR 

AGO HOLPR 

ANOP 

DC 41 

DC DATA+7 

oc PRINT 

oc 6 

AGO END 

EQU *-2 

MDX L  OUTPTs4 ADJUST BUFFER ADDR 
DECR 251 DECR LINE COUNT 

AIF (2 EQ 0),LONG 

MDX 2-1 

AGO END 

ANOP 

8 STEPG CONTINUE TO FILL BUFFER 
DECR 0,20 RESET BUFFER ADDRyNEW LINE 
AIF (0 EQ 0),LONG 

ANOP 


SMAC3350 


SMAC 3360 
SMAC3370 


SMAC3390 
SMAC3400 
SMAC3410 
SMAC3420 
SMAC3430 
SMAC3440 
SMAC3450 


SMAC3460 
SMAC3470 


SMAC3480 


SMAC3500 
SMAC3510 
SMAC3520 
SMAC 3530 
SMAC3540 


SMAC3550 


SMAC3560 
SMAC3570 
SMAC3580 


SMAC3590 
SMAC3600 
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OO4F O1 


0051 20 


0052 0 
0053 0 


0054 20 


0055 0 


0056 1 
0000 


0057 
0058 
0059 
OOSA 


ccor 


005C 0 


005D 
OO5E 
OO5SF 


ooo 


0060 0 
0062 
0061 31 
0064 
O1LA4 O 
O1A5 
O1F5 0 
O1F6 


O1F6 
O1lFT 
O1F8 
O1F9 
O1FA 
O1FB 
O1FC 
O1LFD 
O1FE 
O1FF 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
O20A 


oooo0o0ooococoocoocooco0o0°cCc°o00°0 


000 
000 


e RK EEK KE RE KK KR KKK RK KK Re 


T4ECO049 + MDX OL 
+END ANOP 
PRINT 
176558F3 + LIBF 
+ AIF 
+ AIF 
+TEST ANOP 
0000 + BC 
TOFD + MDX 
+ AGO 
+END ANOP 
WRITE 
+ PRINT 
176558F3 + LIBF 
* AIF 
+WRITE ANOP 
2000 + DC 
+ AGO 
+PRINT ANOP 
O1F5 + DC 
+QERR SET 
+ AIF 
+AUTCE ANOP 
+ AUTOE 
0059 + DC 
7003 + MDX 
0000 + DC 
4C800059 + BSC I 
+END ANOP 
5 INREG 
+ AIF 
+ AIF 
6205 + LDX 2 
+ AGO 
+END ANOP 
T101 STEPG MDX 1 
TOE3 MDX 
6038 EX1T EXIT 
*x 
*x 
0001 ONE DC 
FILE EQU 
06253171 DSA 
0140 BSS 
0050 oc 
0050 DATA 8SS 
0014 oC 
PRINT EQU 
BLOCK 
TFETE + oc 
TFTE + oC 
TF7F + oc 
TFETF + Dc 
TETF + DC 
TETF + DC 
TFTE + DC 
TFTF + DC 
TF7F + DC 
TFTF + DC 
TFETF + DC 
TFTF + DC 
TFTF + DC 
TFETF + DC 
TF?7F + OC 
TFTF + DC 
TFETF + OC 
TFTFE + DC 
TFETF + DC 
TFTFE + DC 
0000 END 
OVERFLOW SECTORS SPECIFIED 


OVERFLOW SECTORS REQUIRED 


OUTPT,-20 


0 BUSY TEST 
PRNT3 

(0 EQ 3)eWRITE 

{0 EQ 0),TEST 


70000 
¥-3 
END 


PRINTsPRINT PRINT LINE 
3,PRINT, 

PRNT3 

(3 EQ 3)+WRITE 


42000 
PRINT 


PRINT-1 


(QERR EQ 0),AUTOE 


z+] 
*+3 
ek 
#3 


2 RESET LINE COUNT 
(5 GT 127),LONG 
{5 LT -128)+LONG 


5 

END 

1 INCR DATA POINTER 
STEP2 CONTINUE TO PRINT 


EXIT-END OF JOB 
CONSTANTS AND BUFFERS 


1 CONSTANT 1 
*+] DATA FILE SECTOR ADDRESS 


320 DATA AREA 


80 CARD BUFFER 


/TFTF,20 BLANK PRINT BUFFER 
/TETF 
/TETE 
/TETEF 
/TETE 
/TETE 
/TETE 
/TETFE 
/TETE 
/TETE 
/TETE 
/TETE 
/TETE 
STFTF 
STETEF 
/TETEF 
/TFTE 
/TFTF 
/TETF 
STFTF 
/TETE 
STEPA 


1130/1800 Macro Assembler Programming 


SMAC 3610 


SMAC3620 


SMAC 3630 


SMAC3640 
SMAC3650 
SMAC3660 
SMAC3670 
SMAC 3680 
SMAC3690 
SMAC3700 
SMAC3710 
SMAC3720 
SMAC3730 
SMAC3740 
SMAC3750 
SMAC3760 
SMAC3770 
SMAC3780 


SMAC3790 


™ 


014 SYMBOLS DEFINED 


NO 


// XEQ 


*FILES( 


ERROR(S) 
L 


1eFILE1) 


R 41 T61E (HEX) 
LIBF TRANSFER VECTOR 


AND 


1N 


NO WARNING(S) FLAGGED IN ABOVE ASSEMBLY 


WDS UNUSED BY CORE LOAD 


PRTY 095C 
HOLL o90c 
PRNT3 O708 
HOLPR O774 
BINDC O72C 
OCBIN 06D4 
CARD1 O5SCA 
DISKN OOF9 
SYSTEM SUBROUTINES 
1LS04 O00C4 
ILSO2 00B3 
ILSOO0 O9AD 
03CO (HEX) IS TH 
-00319 +00319 +00319 
-00315 +00315 +00313 
-00309 +00309 +00309 
-00305 +00305 +00303 
-00299 +00299 +00299 
-00295 +00295 +00293 
-00289 +00289 +00289 
-00285 +00285 +00283 
-00279 +00279 +00279 
-00275 +00275 +00273 
-00269 +00269 +00269 
-00265 +00265 +00263 
-00259 +00259 +00259 
-00255 +00255 +00253 
-00249 +00249 +00249 
-00245 +00245 +00243 
-00239 +00239 +00239 
-00235 +00235 +00233 
-00229 +00229 +00229 
-00225 +00225 +00223 
-00219 +00219 +00219 
-00215 +00215 +00213 
-00209 +00209 +00209 
-00205 +00205 +00203 
-00199 +00199 +00199 
-00195 +00195 +00193 
-00189 +00189 +00189 
-00185 +00185 +00183 
-00179 +00179 +00179 
-00175 +00175 +00173 
-00169 +00169 +00169 
-00165 +00165 +00163 
-00159 +00159 +00159 
-00155 +00155 +00153 
-00149 +00149 +00149 
-00145 +00145 +00143 
-00139 +00139 +00139 
-00135 +00135 +00133 
-00129 +00129 +00129 
-00125 +00125 +00123 
-00119 +00119 +00119 
-O0L15 +00115 +00113 
-00109 +00109 +00109 
~00105 +00105 +00103 
-00099 +00099 +00099 
-00095 +00095 +00093 
-00089 +00089 +00089 
-00085 +00085 +00083 
~00079 +00079 +00079 
-00075 +00075 +00073 
-00069 +00069 +00069 


Appendix A: 


—€ EXECUTION ADDR 


+00317 
+00313 
+00307 
+00303 
+00297 
+00293 
+00287 
+00283 
+00277 
+00273 
+00267 
+00263 
+00257 
+00253 
+00247 
+00243 
+00237 
+00233 
+00227 
+00223 
+00217 
+00213 
+00207 
+00203 
+00197 
+00193 
+00187 
+00183 
+00177 
+00173 
+00167 
+00163 
+00157 
+00153 
+00147 
+00143 
+00137 
+00133 
#00127 
+00123 
+00117 
+00113 
+00107 
#00103 
+00097 
+00093 
+00087 


+00083 
+00077 


+00073 
+00067 


+00317 
+00311 
+00307 
+00301 
+00297 
+00291 
+00287 
+00281 
+00277 
+00271 
+00267 
+00261 
+00257 
+00251 
+00247 
+00241 
+00237 
+00231 
+00227 
+00221 
+00217 
+00211 
+00207 
+00201 
+00197 
+00191 
+00187 
+00181 
+00177 
+00171 
+00167 
+00161 
+00157 
+00151 
+00147 
+00141 
+00137 
+00131 
+00127 
+00121 
+00117 
+00111 
+00107 
#00101 
+00097 
+0009) 
+00087 


+00081 
+00077 


+00071 
+00067 


SMAC3800 


SMAC3810 


General Examples of Macros and Macro Assembler Features 79 


-00065 
-00059 
-00055 
-00049 
-00045 
-00039 
~-00035 
-00029 
-00025 
-00019 
-00015 
-00009 
-00005 


+00065 
+00059 
+00055 
+00049 
+00045 
+00039 
+00035 
+00029 
+00025 
+00019 
+00015 
+00009 
+00005 


+00063 
+00059 
+00053 
+00049 
+00043 
+00039 
+00033 
+00029 
+00023 
+00019 
+00013 
+00009 
+00003 


INPUT DATA CARDS 


(ttre tet oat 
nN N 
w w 
wn °o 


( 
N 
~ 
wn 
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+00063 
+00057 
+00053 
+00047 
+00043 
+00037 
+00033 
+00027 
+00023 
+00017 
+00013 
+00007 
+00003 


+00061 
+00057 
+00051 
+00047 
+00041 
+00037 
+00031 
+00027 
+00021 
+00017 
+00011 
+00007 
+00001 


SMAC3820 
SMAC3830 
SMAC3840 
SMAC3850 
SMAC 3860 
SMAC3870 
SMAC3880 
SMAC3890 
$MAC3900 
SMAC3910 
SMAC3920 
$MAC3930 
SMAC3940 
SMAC3950 
SMAC3960 
SMAC3970 
SMAC3980 
$MAC3990 
SMAC4000 
SMAC4010 
SMAC4020 
SMAC4030 
SMAC4040 
SMAC4050 
SMAC4060 
SMAC4070 
SMAC4080 
SMAC4090 
SMAC4100 
SMAC4110 
SMAC4120 
SMAC4130 
SMAC4140 
SMAC4150 
SMAC4160 
SMAC4170 
SMAC4180 
SMAC4190 
SMAC4&200 
SMAC4210 
SMAC4220 
SMAC4230 
SMAC4240 
SMAC4250 
SMAC4260 
SMAC4270 
SMAC4280 
SMAC4290 
SMAC4300 
SMAC4310 
SMAC4320 
SMAC4330 
SMAC4340 
SMAC4350 
SMAC4360 
SMAC4370 
SMAC4380 


SMAC 4390 
SMAC4400 
SMAC4410 
SMAC4420 
SMAC4430 
SMAC4440 
SMAC4450 


PUNCHED OUTPUT 


+00003 
+00006 
+00009 
+00012 
-00015 
+00018 
+00021 
+00024 
+00027 
-00030 
+00033 
+00036 
+00039 
+00042 
-00045 
+00048 
+00051 
+00054 
+00057 
-00060 
+00063 
+00066 
+00069 
+00072 
-00075 
+00078 
+00081 
+00084 
+00087 
-00090 
+00093 
+00096 
+00099 
+00102 
-00105 
+00108 
#00111 
+00114 
+00117 
-00120 
+00123 
+00126 
+00129 
+00132 
-00135 
+00138 
+00141 
400144 
+00147 
-00150 
+00153 
+00156 
+00159 
+00162 
-00165 
+00168 
+00171 
+00174 
+00177 
-00180 
+00183 
+00186 
+00189 
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+00192 
-00195 
+00198 
+00201 
+00204 
+00207 
-00210 
+00213 
+00216 
+00219 
+00222 
-~00225 
+00228 
+00231 
+00234 
+00237 
-00240 
+00243 
+00246 
+00249 
+00252 
-00255 
+00258 
+0026] 
+00264 
+00267 
-00270 
+00273 
+00276 
+00279 
+00282 
~00285 
+00288 
+00291 
+00294 
+00297 
-00300 
+00303 
+00306 
+00309 
+00312 
-00315 
+00318 
+00602 +00307 
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*DFILE Statement 47-48,61-62 

*MACLIB Control Statement 2,22 

*MACRO UPDATE Control Statement 47 
*OVERFLOW SECTORS Control Statement 1-2 
*STOREDATA Statement 47-48 

*, Used to Designate Comment Statements 5 


**LIBRARY END** 61-62 
**MACRO END** 61-62 

@ Sign 48 

$ Sign 48 

+ Sign 


used as a macro expansion indicator, 7 
used to indicate a positive number, 27 
# Sign 48 


ADD Statement 51,52-53 
Additional Records, Continuing 
Calls to 12-13 
AGO Pseudo-Op 
use in label and blank parameter 
checking, 30 
AGOB Pseudo-Op 17-18 


special considerations in use, 18-19 
AIF Pseudo-Op 15-16,17 

restriction of use, 29-30 
AIFB Pseudo-Op 15-16 

restriction of use, 29-30 

special considerations in use, 18-19 


Ampersand, Used as a Concatenator 23 


example, 24-25 
ANOP Pseudo-Op 19-20 
Apostrophe 


restriction of use in the name of a 
stored macro, 5 
used in automatic name 
generation, 22-23 
Assemble if Back Pseudo-Op 
See AIFB Pseudo-Op. 
Assemble if Pseudo-Op 
See AIF Pseudo-Op. 

Assembler Language, A symbolic 

programming language. 

Assembler-Language Statement, An 

assembler-language instruction or a 
pseudo-operation. 

Assembler-Language Instruction, An 
instruction that the Macro Assembler 
can translate into exactly one 
machine-language instruction. 

Automatic Label Generation 

See Automatic Name Generation. 

Automatic Name Generation 1,22-23. 

The method by which different labels 
can be generated during each 
expansion of a macro instruction in 
the same assembly. 


Glossary—Index 


special requirements on its use in 
nested definitions, 57-58 


Blank and Label Parameter Checking 
Using AGO 30 
BUILD Statement 48 


Calling 
macros, 7 
Macro Update Program, 47 


Calls 
continuation of to additional 
records, 12-23 


macro, 7,12 
Character String 
in message generation, 11-12 
substitution for a parameter, 
Characters, Special 6,10,47 
Checking 
for blank parameters, 28-29 
for label and blank parameters 
using AGO, 30-31 
for unspecified parameters, 
for unspecified parameters, a 
Macro, 34 
Comma 
lack of use in continuation of NAME 
statement, 52 
use in a macro instruction, 7-8 
Comments 
designating, 5,58 
listed within the expansion, 25 
See also Remarks. 
CONCAT Statement 49-50 
Concatenation 2. The process by which 
two things (such as two parts of an 
instruction, or two macro libraries) 
are logically joined together. 
of macro instructions, 23-25 
of macro libraries, 49-50 
Concatenating a Multiplicity of 
Libraries, 49-50 
Concatenators 
ampersand, 23 
CONCAT statement, 
period, 23 
Conditional Assembly Pseudo-Ops 
Continuing Calls to Additional 
Records 12-13 
Control Statement 47. A statement that 
provides instructions to some part of 
the Disk Management Program or Disk 
Utility Program. 
continuation of, 47 
Copying an Existing Library 49 
Core Storage 
See Main Storage. 


10-11 


17-18 


49-50 


15-18 
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Creating a Language 1,37-45 


DC-Generating Macro 34-35 
Defining 
a language, 1 
amacro, 1,6 
a macro during a Macro Update 
Run, 51-53 
a macro instruction, 5 

Definition Prototype Statement 5-6,53. 
The statement in a macro 
definition that specifies the 
op code and parameters of the 
macro. 

printing of, 6 
DELETE Statement 55-56 
in automatic name generation in nested 
definitions, 57-58 
in renaming a library, 51 
in updating a library, 50 

Deleting a Macro from a Library 53 

Deleting Statements from a Macro 55-56 

Designating Comments 5,58 

Disconnecting Concatenated Libraries 50 

Disk Management Program (DMP) 47. A group 
of 1800 MPX disk utility and 
maintenance programs that operate 
under control of the Batch-Processing 
Monitor Supervisor. 

Disk Monitor System, Version 2 (DM2), 
second version of an operating and 
programming system that provides for 
the continuous batch-processing 
operation of the 1130. 

estimating size required, 1-2 
initializing, 2,47-48 

Disk Utility Program (DUP) 47. A group of 
1130 disk utility and maintenance 
programs that operate under control of 
the Supervisor. 

Division Operator 27 

DMP 

See Disk Management Program. 
DM2 

See Disk Monitor System, Version 2. 
DUP 

See Disk Utility Program. 


The 


EJCT Pseudo-Op 15,17,18 
END Statement 15,17,18 
ENDUP Statement 58-59 
EQU Statement 20 
symbolic tag field in, 27 
Error Flags 4,63-64 
Error Messages 4,63,65-67 
Estimating 
size of N2, 2 
size of N3, 2 
Expansion 7. The coding generated when 
the Macro Assembler encounters a macro 
instruction; also, the process of 
generating this coding. 


Field Specifications on Macro Update 
Control Statements 47 
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Flags 
error, 4,63-64 
warning, 4,63 


HDNG Pseudo-Op 15,17,18 


Indirect Parameter Substitution 26,32-33. 
The feature of the Macro Assembler 
that allows different parameters on 
the macro call statement to be 
substituted for a specific 
parameter in the macro expansion, 
depending on some condition to be 
inspected during assembly. 

Initializing Disk Space 2,47-48 

INSERT Statement 54,55 

in automatic name generation in nested 

definitions, 57-58 

in renaming a library, 51 

in updating a library, 50 
Inserting Statements in a Macro 

restrictions on, 55,56 
Insufficient Parameter Names 52 


54-55,56 


JOIN Statement 49-50 

Joining Macro Libraries 
logically, 2,22,49-50 
physically, 49-50 


Label Field Parameters 8 
Label and Blank Parameter Checking 
Using AGO 30 
Label Generation 
See Automatic Name Generation. 
Language Creation 1,37-45 
Library 
See Macro Library. 
LIB Statement 48 
List Control Pseudo-Ops 6 
LIST Pseudo-Op 15,17,18 
Listing of 
comment statements, 6 
macro calls, 25 
Macro libraries, 
LNAME 3,48 
Logically Joining Macro 
Libraries 2,22,49-50 


56-57 


MAC Statement 5,25,51,53 
Macro Assembler, The translating program 
that accepts as input 
assembler-language instructions, 
pseudo-operations, and macro 
instructions. 
error flags, 63-64 
error messages, 63-65 
language, 37-45 
main-storage requirements, 3,4 
performance, 4 
purpose, l1 
sample programs, 33-35,69-84 
sign-off message, 63 
warning flag, 63 


Macro Calls 7,12 
continuation to additional records, 12 
listing of, 6 
nested, 3,10,23,26,32 
Macro Definition 1,2. A sequence of 
instructions that define the op code 
and parameters of a macro instruction 
and the coding to be generated when 
the macro is assembled. 
during a macro update run, 51-53 
nested, 3 
Macro Expansion 7 
Macro instruction 1. A source program 
statement that, when encountered by 
the Macro Assembler, causes a 
predefined sequence of statements to 
be assembled. 
defining, 5 
using, 7 
Macro Library 3. A collection of macro 
definitions, saved on disk, that can 
be used by any program that references 
that library. 
copying, 49 
disconnecting, 50 
initializing, 3 
joining logically, 49-50 
joining physically, 48-49 
Maintaining, 3 
naming, 47-48 
specifying, 48 
Macro Name 1,5,22 
Macro Parameter Substitution 32-33 
Macro Update Program 4,47-62. A DMP or 
DM2 program that allows you to 
initialize and maintain macro 
libraries. 
calling, 47 
control statement sequencing, 59 
error messages, 65-67 
making efficient use of, 59-60 
sample program, 61-62 
Macros 
stored, 1,2-3 
temporary, 1-2 
Main Storage Requirements 
1130, 3-4 
1800, 4 
Making Efficient Use of the Macro 
Update Program 59-60 
MEND Statement 5,51,53 
termination of AGO and AGOB 
search, 17 
termination of AIFB search, 16 
Message Generation 11-12 
Message Macro 34 
Messages, Error 4,63,65-67 
Move Macro 34 
MPX 
See Multiprogramming Executive 
Operating System. 
Multiple Concatenation 49-50 
Multiprogramming Executive Operating 
System (MPX), An operating system 
for the 1800 that can control 


processes and provide 
multiprogramming and background 
processing. 
MUP 
See Macro Update Program. 


of a library, 47-48 

of a macro, 1,5,22 

of a parameter, 5-6,7,52 
Name Generation, Automatic 1,22-23,57-58 
NAME Statement 47,51-52 

continuation of, 51-52 

used in the sample program, 61-62 
Name Subfield Left Blank on AIF and 
AIFB Statements 16 
Nested Macro Calls 3 

in automatic name generation, 23 

in continued calls, 32 

in definitions defined during a macro 

update run, 53 

in indirect parameter 

substitution, 26,32 

passing a set of parameters, 10 

restrictions on, 3 
Nested Macro Definitions 3. Macro 

definitions that are defined 
so that a call to one occurs 
within the expansion of the other. 
SELECT N considerations, 57-58 


Obtaining a Listing of Macro 
Libraries 56-57 
Omitting 
name subfields on AIF and AIFB 
statements, 16 
operand on AGO and AGOB statements, 17 
parameters, 8-9 
Op Code 5. That field of an 
assembler-language statement that 
specifies the operation to be carried 
out by the CPU. 
Operand Field 6 
Operand Left Blank on AGO and AGOB 
Statements 17 
Optional Remarks 25 
OUTPUT Statement 54 


Parameters 
blank, checking for, 28-29 
in a macro instruction, 1 
indirect substitution, 26,32-33 
insufficient names, 52 
label field, 8 
macro to check for unspecified 
parameters, 34 
name, 5-6,7 
omitting, 8-9 
substituting a character string 
for, 10-11 
substitution, 6,32-33 
unspecified, checking for, 17-18 
Performance of the Macro Assembler 4 
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Period 
example of use as a concatenator, 24 
in DEC and XFLC statements and 
concatenation, 25 
used as a concatenator, 23 
used to designate comments, 58 
Physically Joining Macro 
Libraries 48-49 
Plus Sign, 
used as a macro expansion indicator, 7 
used to indicate a positive number, 27 
Printing 
definition prototype statements, 6 
inhibition of, 6,56-57 
sequence numbers, 6,55,61-62 
Pseudo-Operation 3. An assembler-language 
statement that provides information 
for the Macro Assembler rather than 
generating executable code. 
AGO, 17-18 
AGOB, 17-18 
AIF, 15-16,17 
AIFB, 15-16 
ANOP, 19-20 
conditional assembly, 15-17 
EJCT, 15,17,18 
END, 15,17,18 
HDNG, 15,17,18 
List, 15,17,18 
MEND, 15,17,18 
PURG, 15,17,18 
SET, 20-22 
SPAC, 15,17,18 
Pseudo-Ops 
See Pseudo-Operation. 
Punching Source Statements 54 
PURG Statement 22 
PURG vs. PURGE 54 
PURGE Statement 53-54 


Reclaiming Library Space 53-54 
Records, Continuing Calls to 
Additional 12-13 
Remarks 
Optional, 25 
retaining, 5 
RENAME Statement 51 
Renaming a Macro in a Library 51 
Restrictions 
on AIF, AIFB, and SET pseudo-ops, 29-30 
on inserting statements, 55,56 
on nested macro calls, 3 
on nested macro definitions, 3 
on parameter names, 6,11,51 
Retaining Remarks 5 


Sample Programs 
creating a language, 37-45 
Macro Assembler, 33-35 
Macro Update Program, 61-62 
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1130 Macro Assembler, 69-84 

SELECT Statement 56-57 
SELECT N as Used with Automatic Name 
Generation in a Nested 

Definition 57-58 
SELECT P as Used with NAME 

Statement 59 
Semicolon, Used in Indirect Parameter 
Substitution 26,32 
Sense Switch 2 6,56-57 
Sequencing MUP Control Statements 59 
Sequence Numbers, Printing of 6,55,61-62 
SET Pseudo-Op 20-22 

restriction of use, 29-30 

symbolic tag field in, 27 
Sign-Off Message 63 


Signs, 
@, 48 
$, 48 
+, 7,27 
#, 48 


SMAC Statement 5,25,51,53 
Source Statements, Punching 
of 54 
Space, Reclaiming 53-54 
SPAC Pseudo-Op 15,17,18 
Special Characters 6,10,47 
Special Requirements on the Use of 
Automatic Name Generation in 
Nested Definitions 57-58 
Specifying the Macro Library 48 
Statements 
deleting from a macro, 55-56 
inserting into a macro, 54-55,56 
See also the name of a particular 
statement or the function it performs. 
Stored Macro 1,2-3,5. A macro 
instruction that is saved on disk 
and can be used by any program. 
Substituting a Character String for a 
Parameter 10-11 
in message generation, 1-12 
Substitution 
indirect parameters, 26,32-33 
parameter, 6,32-33 
Symbol Table, for 1130 DM2 3-4 
Symbolic Tag Field 27-28 


Tag Field, Symbolic 27-28 

Temporary Macro 1-2,5. A macro 
instruction that is defined for use 
only during one specific assembly. 

Terminating a Macro Update Run 58-59 

Text 6,7. A list of assembler-language 
instructions, calls to other macros, 
and/or pseudo-ops to be generated 
when a macro call is encountered. 

Truncation of Information Following 

Column 71 6,10,25 


s 


Unspecified Parameter Checking 17-18 
UPDATE COMPLETED 59,62 
UPDATE Statement 50 
Updating a Macro in a Library 50 
See also DELETE Statement and 
INSERT Statement. 
Using a Macro Instruction 7 


Warning Flag 4,63 


X, Used to Designate an Addition of a 
Statement to a Macro or 


Library 55,61-62 
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